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Abstract 

This  is  a  tutmiai  for  building  an  expert  system  in  Soar  using  the  TAQL  programming  language.  It  provides  a 
self-contained  tefoence  fw  the  end-to-end  development  of  a  Soar  system  that  accomplishes  a  particular  task-  It 
presents  a  natural-language  task  descriprion,  a  system  design,  and  a  sample  implementation,  including  a  documented 
code  listing.  It  also  discusses  chunking  (Soar’s  learning  mechanism)  in  the  context  of  the  sample  implementation. 
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1.  Introduction 

This  is  a  tuttirial  for  building  a  learning  expert  system  in  the  Soar  problem  solving  architecture 
(Laird  et  al.,  1990),  using  the  TAQL  programming  language  (Yost  and  Altmaim,  1991;  Yost, 
1992).  It  provides  a  self-ccmtained  reference  for  end-to-end  development  of  a  Soar  system, 
beginning  with  a  natural-language  task  description  and  ending  with  a  sample  inqrlementation  of 
a  system  to  accomplish  the  task.  In  between  it  illustrates  a  number  of  design  and  programming 
techniques  (without  claims  to  complete  coverage  of  such  techniques,  or  independence  frmn 
personal  style).  It  also  discusses  chunking  (Soar’s  learning  mechanian)  in  the  context  of  the 
sample  implementation. 

Chapter  2  describes  the  task  of  the  shipment  scheduling  assistant,  which  is  to  generate 
schedules  that  coordinate  tmcks,  truck  drivers,  and  shipments.  Chapter  3  presents  a  design  that 
outlines  both  the  dynamic  behavior  of  a  system  and  the  static  relationship  of  its  components. 
The  last  section  of  this  ch2q)ter  presents  a  detailed  view  of  chunks  learned  by  a  sancqple 
implementation  of  this  design.  Chapter  4  presents  the  details  of  this  implementation,  including  a 
docuniented  code  listing,  a  trace  of  the  running  system,  and  a  listing  of  the  chunks  learned  during 
the  traced  run. 

For  information  about  obtaining  the  code  and  other  listings  on-line,  or  to  obtain  this  or  other 
documents  concerning  Soar  and  TAQL,  send  electronic  mail  to  soar-requests@cs.cmu.edu,  or 
physical  mail  to  The  Soar  Project,  School  of  Computer  Science,  Carnegie  Mellon  University, 
Pittsburgh,  PA  15213-3890. 
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2.  The  Shipment  Scheduling  Assistant:  Task  Description 

This  description  was  derived  from  a  formal  description  of  a  larger  set  of  problems  in  me 
shipment  scheduling  domain  (Filman,  1988a).  The  formal  description  is  for  the  problem  used  as 
an  example  in  a  recent  expert  systems  paper  (Filman,  1988b). 

2.1.  Description 

The  Big  Giant  Trucking  Company  ships  materials  among  cities  in  the  Midwest  Customers 
contact  the  company  and  request  that  goods  be  transported  from  one  city  to  another  on  a 
specified  day.  Big  Giant’s  dispatchers  collect  the  orders  and  create  suitable  delivery  schedules. 

A  schedule  consists  of  some  number  of  trips,  where  each  trip  has  an  itinerary,  a  truck,  and  a 
driver.  An  itinerary  is  a  list  of  cities  and  the  highways  that  the  driver  should  take  from  one  city 
to  the  next.  The  itinerary  also  states  what  shipments,  if  any,  the  driver  should  pick  up  and 
deliver  at  each  city  (sometimes  the  driver  will  just  pass  through  with  no  pickups  or  deliveries). 

Producing  a  schedule  is  difficult  because  of  the  many  constraints  on  the  trips  and  the  schedule 
as  a  whole.  For  example,  each  driver  can  drive  only  one  trip,  and  union  drivers  can  only  drive 
trips  that  take  less  than  eleven  hours.  The  shipment  scheduling  assistant  takes  the  set  of 
itineraries  on  the  schedule  (which  we  assume  were  put  together  by  a  dispatcher),  and  tries  to  find 
an  assignment  of  trucks  and  drivers  to  the  itineraries  that  does  not  violate  any  constraints.  If  no 
such  assignment  is  possible,  the  assistant  informs  the  dispatcher,  who  must  then  revise  the 
itineraries  and  try  again. 

The  remainder  of  this  description  provides  the  information  the  assistant  needs  to  try  to  find 
valid  truck  and  driver  assignments. 


2.1.1.  Drivers,  trucks,  cities,  and  highways 
Tables  1, 2,  and  5  define  the  driver,  trucks,  and  highways  used  by  Big  Giant. 

Big  Giant  serves  the  following  cities: 

•  In  Illinois:  La  Harpe,  Oregon,  Thayer,  Utica,  Viola,  Yale,  and  Zion. 

•  In  Indiana:  Attica,  Bloomington,  Cook,  Delphi,  English,  Fowler,  Gary,  Hebron, 
Indianapolis,  Jasper,  Kokomo,  Mitchell,  New  Harmony,  Paoli,  Roselav  n,  Seymour, 
and  Warsaw. 


Name 

Union 

License 

Qass 

Brown 

yes 

3 

Gray 

no 

1 

Green 

yes 

3 

White 

no 

2 

Table  1:  Drivers 
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2.1J1.  CcHistraints 

The  constraints  on  schedules  and  trips  are: 

•  Each  driver  can  drive  only  one  trip,  and  each  trip  has  only  one  driver. 

•  Each  truck  can  be  used  on  only  one  trip,  and  each  trip  has  only  one  truck. 

•  The  maximum  weight  of  a  truck’s  load  at  any  point  during  a  trip  cannot  exceed  the 
truck’s  rated  weight  limit  Big  trucks  can  hold  32000  pounds,  medium  trucks  10000 
pounds,  and  small  trucks  5000  pounds. 

•  The  maximum  volume  of  a  truck’s  load  at  any  point  during  a  trip  cannot  exceed  the 
truck’s  rated  volume  limit  Big  trucks  can  hold  1280  cubic  feet  medium  trucks  640 
cubic  feet  and  small  trucks  400  cubic  feet 

•  The  driver  and  truck  assigned  to  a  trip  must  be  in  the  trip’s  origin  city  to  begin  with. 

•  The  license  class  of  a  driver  must  be  at  least  as  great  as  the  license  class  required  by 
the  truck  he  or  she  is  assigned.  Big  tmcks  require  class  3  licenses,  medium  trucks 
require  at  least  class  2  licenses,  and  small  trucks  require  at  least  class  1  licenses. 

•  A  driver  can  only  drive  trips  whose  duration  is  less  than  his  or  her  maximum 
allowable  driving  time.  The  duration  of  a  trip  is  the  sum  of  the  driving  times  for 
each  segment  on  the  itinerary,  plus  the  time  needed  for  loading  and  unloading 
shipments  during  the  trip.  The  driving  time  fra*  a  segment  is  the  length  of  the  road 
us^  for  that  segment  divided  by  the  estimated  speed  for  that  road  (as  determined  by 
the  weather  and  road  grade,  see  Table  3).  Union  drivers  can  be  on  a  trip  lor  at  most 
1 1  hours,  while  non-union  drivers  can  be  on  a  trip  for  at  most  12.5  hours. 

•  White  cannot  drive  on  any  trip  that  passes  through  a  city  in  Dlinois  (he  is  wanted  for 
a  crime  there). 


Name 

Class 

Caimonball 

big 

Piper 

small 

(^eenBee 

medium 

Traveler 

medium 

Table!:  Trucks 


Road  grade  -> 
Weather  i 

Primary 

Secondary 

Tertiary 

Fair 

60 

55 

50 

Rain 

55 

50 

35 

Snow 

45 

40 

30 

Table  3:  Estimated  travel  speed,  given  road  grade  and  weather 
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2.2.  Test  case 

This  section  presents  a  simple  test  case  that  you  can  use  to  partially  test  your  scheduling 
assistant 

The  weather  throughout  Big  Giant’s  area  of  operations  is  rainy.  Drivers  Brown  and  Gray  are 
in  Gary,  and  drivers  Green  and  White  are  in  Indianapolis.  Trucks  Piper  and  Traveler  are  in  Gary, 
and  tmcks  Cannonball  and  Queen  Bee  are  in  Indianapolis. 

The  dispatcher’s  schedule  has  three  trips.  The  shipments  referred  to  in  the  trips  are  listed  in 
Table  4. 

•  Trip  1:  Starting  in  Gary,  pick  up  the  typewriter  shipnoent  and  take  highway  U30  to 
Warsaw,  followed  by  U31a  to  Kokomo,  U31b  to  Indianapolis,  and  174  to  Attica. 
Deliver  the  typewriter  shipment  in  Attica. 

•  Trip  2:  Starting  in  Gary,  take  U41a  to  Cook,  I80b  to  Utica,  and  I80a  to  Viola.  Pick 
up  the  carpet  shipment  in  Viola.  Then,  take  I80a  back  to  Utica,  and  I80b  to  Cook. 

In  Cook,  deliver  the  carpet  shipment  and  pick  up  the  newsprint  shipment. 

•  Trip  3:  Starting  in  Indianapolis,  take  HOb  to  Yale,  then  take  U41e  to  Attica. 

One  valid  solution  for  this  test  case  is  to  assign  Gray/Piper  to  trip  1,  Brown/Traveler  to  trip  2, 
and  Green/Cannonball  to  trip  3.  Piper  is  the  only  truck  in  Gary  Aat  Gray  is  licensed  to  drive, 
leaving  Traveler  (the  only  other  track  in  Gary)  for  Brown.  White  cannot  drive  trip  3,  because  it 
passes  through  Illinois,  so  Green  must  do  it. 


Material 

Origin 

Destination 

Weight 

Volume 

Loading 

Time 

Unloading 

Time 

Bicycles 

Roselawn 

Bloomington 

500.0 

100.0 

0.2 

0.25 

Books 

Oregon 

Mitchell 

1000.0 

50.0 

0.2 

0.25 

Carpet 

Viola 

Cook 

500.0 

100.0 

0.2 

0.25 

Computers 

Seymour 

Thayer 

1000.0 

150.0 

0.2 

0.25 

Newsprint 

Cook 

Indianapolis 

6000  0 

400.0 

0.2 

0.25 

Refrigerators 

Kokomo 

Warsaw 

9000.0 

600.0 

0.2 

0.25 

Toys 

LaHarpe 

Oregon 

1000.0 

100.0 

0.2 

0.25 

Typewriters 

Gary 

Attica 

1000.0 

200.0 

0.2 

0.25 

Table  4:  Shipments 


Name 

Connects 

Grade 

Length 

I64a 

New  Harmony,  Jasper 

primary 

60.0 

I64b 

English,  Jasper 

tertiary 

30.0 

165 

Seymour,  Indianapolis 

primary 

60.0 

I70a 

Thayer,  Yale 

primary 

150.0 

I70b 

Indianapolis,  Yale 

primary 

90.0 

174 

Indianapolis,  Atdca 

primary 

60.0 

I80a 

Viola,  Utica 

primary 

100.0 

I80b 

Cook,  Utica 

primary 

90.0 

190 

Oregon,  Gary 

secondary 

100.0 

194 

Zion,  Gary 

primary 

60.0 

S125 

La  Harpe,  Thayer 

tertiary 

80.0 

S25 

Delphi,  Attica 

tertiary 

40.0 

S26 

Delphi,  Kokomo 

tertiary 

30.0 

S37a 

Bloomington,  Indianapolis 

secondary 

50.0 

S37b 

Bloomington,  Mitchell 

tertiary 

30.0 

S37c 

Paoli,  Mitchell 

tertiary 

10.0 

S37d 

Paoli,  English 

tertiary 

10.0 

U231 

Cook,  Hebron 

tertiary 

20.0 

U24 

La  Harpe,  Fowler 

secondary 

180.0 

U30 

Gary,  Warsaw 

secondary 

70.0 

U31a 

Kokomo,  Warsaw 

secondary 

70.0 

U31b 

Kokomo,  Indianapolis 

primary 

40.0 

U41a 

Cook,  Gary 

secondary 

20.0 

U41b 

Cook,  Roselawn 

secondary 

20.0 

U41c 

Fowler,  Roselawn 

secondary 

30.0 

U41d 

Fowler,  Attica 

secondary 

30.0 

U41e 

Yale,  Attica 

secondary 

90.0 

U41f 

Yale,  New  Harmony 

secondary 

70.0 

U50 

Mitchell,  Seymour 

tertiary 

30.0 

U51 

Utica,  Oregon 

secondary 

40.0 

U67 

Viola,  La  Haipe 

secondary 

50.0 

Table  5:  Highways 
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3.  Designing  a  Soar  Solution 

3.1.  Introduction 

This  chapter  discusses  how  to  design  a  Soar  system  that  solves  the  shipment  scheduling  task. 
The  guidance  toward  a  pardcular  in^lementation  increases  as  the  chapter  progresses,  allowing 
novice  Soar  users  to  choose  a  stepping-off  point,  or  to  stick  with  the  chapter  to  the  end  to  gain 
exposure  to  one  particular  set  of  design  and  programming  methods.  The  particular 
implementation,  together  with  a  trace  and  a  chunk  listing,  is  given  in  Chapter  4. 

Section  3.2  presents  a  one-page  analysis  of  the  test  case  from  Chapter  2,  including  a  summary 
of  the  various  constraints  on  the  solution. 

Section  3.3  begins  with  an  aiudysis  of  these  constraints  and  a  procedure  for  solving  the  task.  It 
then  outlines  the  dynamic  behavior  and  static  structure  of  a  Soar  system.  The  dynamic  and  static 
designs  are  depicted  graphically,  and  then  tied  together  in  a  Soar  pseudo-trace.  The  last 
subsection  presents  a  detailed  design,  in  textual  form. 

Section  3.4  introduces  chunking,  backtracing,  and  the  problem  of  learning  from  exhaustion.  It 
also  discusses  methods  of  manipulating  data  to  prevent  overgeneral  chunks,  including  a  case- 
study  of  how  certain  conditions  come  to  be  included  in  a  particular  chunk. 
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3.2.  Notes  on  the  Test  Case 

The  description  of  the  three  trips  in  the  test  case  (Section  2.2,  page  5)  is  reproduced  below. 
Relevant  notes,  compiled  from  the  various  tables,  are  made  under  each  trip.  A  summary  of 
constraints,  and  a  specification  for  the  solution,  are  given  afterwards. 

•  Trip  1:  Starting  in  Gary,  pick  up  the  typewriter  shipment  and  take  highway  U30  to 
Warsaw,  followed  by  U31a  to  Kokomo,  U31b  to  Indianapolis,  and  174  to  Attica. 
Deliver  the  typewriter  shipment  in  Attica. 

Notes:  There  are  four  segments.  The  time  needed  to  drive  them,  and  to  load  and 
unload  the  single  shipment,  adds  up  to  3.7  hours,  so  any  driver  will  do. 
Similarly,  the  size  of  the  carpet  shipment  (volume  200,  weight  KXK)) 
provides  no  constraint:  any  truck  will  do. 

Drivers  available  are  Gray  and  Brown,  and  trucks  available  are  Piper  (small) 
and  Traveler  (medium).  Possible  assignments:  Gray/Piper,  Brown/Traveler, 
Brown/Piper.  (Gray  is  licensed  only  for  Piper.) 

Brown/Piper  will  cause  the  schedule  to  fail,  because  Trip  2  also  starts  in 
Gary  and  Gray/Traveler  is  illegal. 

•  Trip  2:  Starting  in  Gary,  take  U41a  to  Cook,  I80b  to  Utica,  and  180a  to  Viola.  Pick 
up  the  carpet  shipment  in  Viola.  Then,  take  I80a  back  to  Utica,  and  180b  to  Cook. 

In  Cook,  deliver  the  carpet  shipment  and  pick  up  the  newsprint  shipment. 

Notes:  There  are  six  segments,  counting  loading  the  newsprint  as  the  beginning  of  a 
segments  that  is  otherwise  nuU.  Drive  time  adds  up  to  6.5  hours,  so  any 
driver  will  do.  The  size  of  the  shipments  provides  one  constraint:  the  weight 
of  the  newsprint  shipment  (6000)  requires  a  medium  track  (Traveler). 

Drivers  available  are  Gray  and  Brown,  and  trucks  available  are  Piper  (small) 
and  Traveler  (medium).  Possible  assignments:  Gray/Piper,  BrownTraveler, 
Brown/Piper.  (Gray  is  licensed  only  for  Piper.) 

Any  assignment  involving  Piper  will  fail  on  the  last  segments  because 
Piper’s  weight  limit  will  not  accommodate  the  newspaper  shipment. 

•  Trip  3:  Starting  in  Indianapolis,  take  DOb  to  Yale,  then  take  U41e  to  Attica. 

Notes:  There  are  two  segments.  The  time  needed  to  drive  them  is  3.4  hours,  so  any 
driver  will  do.  There  are  no  shipments,  so  size  provides  no  constraint. 

Drivers  available  are  Green  and  White,  and  trucks  available  are  (^een  Bee 
and  Cannonball.  Possible  assignments:  all  four  pairs. 

Any  assignment  involving  White  will  fail  on  the  first  segment  because  Yale 
is  in  Illinois. 


Global  constraints:  <Brown,  Piper,  Trip  1>  means  Trip  2  cannot  be  covered. 

Local  constraints:  <X,  Piper,  Trip  2>  will  fail  because  Piper  is  too  small. 

<White,  X,  Trip  3>  will  fail  because  >^ite  will  be  arrested  in  Yale. 


Solution: 


<Gray,  Piper,  Trip  1>,  <Brown,  Traveler,  Trip  2>,  <Green,  X,  Trip  3> 
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3.3.  Problem  Space  Design 

3  J.l.  Task  analysis 

A  first  stq)  in  developing  a  solution  is  to  look  at  the  source  of  difficulty  in  the  task,  which  in 
this  case  is  the  set  of  constraints  listed  on  page  4. 

The  constraints  fall  into  three  categories; 

1.  Immediate  constraints  —  These  can  be  checked  immediately,  based  on  the 
information  in  the  tables  given  with  the  task  description.  For  instance,  a  series  of 
table  lookups  can  tell  us  that  a  particular  driver  is  in  the  city  in  which  a  trip 
originates,  or  is  licensed  to  drive  a  particular  class  of  tmck. 

2.  Local  constraints  —  These  must  be  met  for  a  particular  assignment  of  a  truck  and  a 
driver  to  a  trip  to  be  successful  (the  constraints  are  local  to  a  particular 
assignment). 

Checking  local  constraints  requires  some  computation  beyond  looking  up 
information  in  the  tables.  For  instance,  the  load  in  the  truck  at  any  one  time  is  a 
fimcdon  of  how  the  shipments  are  spread  out  across  the  trip,  and  checking  that  the 
truck’s  capacity  is  not  exceeded  requires  simulating  the  effects  of  loading, 
unloading,  and  driving. 

Violations  of  local  constrauits  surface  as  the  inability  to  complete  a  particular  trip. 

3.  Global  constraints  —  These  must  hold  across  assignments  for  the  entire  schedule 
to  be  successful  (they  are  global  with  respect  to  particular  assignments). 

For  instance,  consider  the  possibility  of  assigning  Brown  to  Piper  for  Trip  1.  This 
assignment  is  successful,  but  leaves  no  remaining  assignments  for  Trip  2,  because 
Gray  is  not  licensed  for  Traveler.  Thus  the  schedule  as  a  whole  will  fail  if  it 
includes  the  first  assignment. 

Global  constraint  violations  surface  as  a  situation  in  which  there  are  trips  left  over 
but  no  assignments  for  them. 

These  categories  help  to  outline  a  procedure  for  solving  the  task,  which  is  shown  in  Figure  1. 
Step  1  generates  assignments  that  satisfy  the  immediate  constraints.  Steps  2  and  3  check  the 
local  and  global  constraints.  Step  4  detects  when  the  task  is  solved,  and  Step  5  recursively 
invokes  the  procedure  when  it  is  not. 

The  procedure  in  Figure  1  can  be  mapped  onto  problem  spaces  as  follows.  If  we  associate 
each  assignment  with  an  operator,  each  such  operator  presents  an  opportunity  to  check  the  local 
constraints  associated  with  that  assignment  The  effect  of  such  an  operator  would  be  to  simulate 
a  trip  with  a  particular  truck  and  driver,  and  generate  a  state  in  which  either  the  schedule  is 
updated  with  that  assignment,  or  in  which  a  failure  of  the  assignment  (due  to  local  constraints 
being  violated)  is  indicated.  We  can  call  this  the  simulate-trip  operator.  The  operator  itself 
requires  a  sequence  of  steps,  namely  simulating  the  loading  and  unloading  of  shipments  and  the 
driving  of  segments  of  the  trip.  Simulate-trip  can  be  applied  by  a  separate  problem  space  that 
executes  these  steps. 

The  immediate  constraints  can  be  incorporated  in  the  proposal  of  simulate-trip  operators.  This 


10 


1.  Generate  a  set  of  possible  assignments  for  unassigned  trips  that  satisfy  all 
immediate  constraints,  and  choose  one  assignment. 

2.  Check  the  local  constraints  on  that  assignment,  by  simulating  the  trip.  If  a 
constraint  fails,  backtrack  some  previous  instance  of  Step  1  where  alternatives 
remain,  and  choose  one.  If  there  are  no  previous  instances  where  alternatives 
remain,  halt  with  failure. 

3.  If  no  local  constraints  are  violated,  check  whether  any  global  constraints  have  been 
violated  by  checking  if  there  are  trips  left  over  but  no  assignments  for  them.  If  a 
global  constraint  has  been  violated,  backtrack  to  some  previous  instance  of  Step  1 
or  halt  with  failure  (as  in  Step  2). 

4.  If  no  local  or  global  constraints  are  violated,  check  whether  we  have  a  successful 
schedule,  by  checking  whether  all  the  trips  have  assignments.  If  so,  hal^  with 
success. 

5.  Mark  the  trip  as  having  been  assigned,  update  the  pool  of  available  trucks  and 
drivers,  and  recurse  to  Step  1. 

Figure  1:  Procedure  that  solves  the  shipment  scheduling  task 

will  reduce  the  number  of  operators  generated  (and  therefore  the  search  involved  in  solving  the 
task)  Further  reduction  in  search  comes  if  we  base  successive  operator  proposals  on  the  updated 
set  of  trips  and  the  updated  pool  of  available  tmcks  and  drivers  (all  of  whieh  shrink  with  ea^h 
successful  assignment).  These  updates  can  be  carried  out  by  simulate-trip  itself,  upon  successful 
completion  of  a  simulation.  This  updating  also  allows  testing  for  success  by  detecting  when  no 
more  unassigned  trips  remain,  and  testing  for  violations  of  global  constraints  by  detecting  when 
trips  are  left  over  but  no  assignments  are  left. 

The  states  in  this  scheme  will  have  to  represent  several  kinds  of  information.  First  is  that  from 
the  tables  presented  in  Chapter  2.  This  information  implicitly  represents  many  of  the  immediate 
constraints,  and  therefore  must  be  available  when  proposing  simulate-trip  operators.  Second  is 
the  dynamic  information  that  changes  from  trip  to  trip.  This  includes  the  sets  of  unassigned 
trips,  available  drivers,  and  available  tmcks;  Ae  schedule,  as  it  grows  witli  each  successful 
assignment;  and  indications  of  local  and  global  constraint  violations.  Third  is  the  dynamic 
information  that  changes  only  from  segment  to  segment  within  a  trip.  This  includes  resources 
such  as  available  drive  time  and  track  capacity. 

Finally,  we  need  a  mechaiusm  for  backtracking  when  constraints  fail.  One  sim  7le  mechan’sm 
is  depth-first  search,  in  which  the  selection  at  the  most  recent  instance  of  Step  1  is  changed, 
unless  there  are  no  more  alternatives,  at  which  point  the  procedure  backtracks  to  the  next  irost 
recent  instance  of  Step  1. 


3.3.2.  Dynamic  behavior 

Rgure  2  shows  an  example  trace  of  the  procedure  above  as  mapped  onto  problem  spaces,  with 
an  emphasis  on  how  depth-first  search  works  in  Soar.  Spaces  are  depicted  as  triangles,  states  as 
circles,  operators  as  lines  emanating  from  states,  impasses  as  down  arrows,  and  subgoal  results 
are  up  arrows.  The  trace  is  annotated  with  examples  of  how  each  step  of  the  procedure  is 
realized  as  a  problem-space  operation.  (Figure  3  shows  a  corresponding  pseudo-trace  that 
resembles  actual  Soar  output.)  The  problem  spaces  shown  are  the  task  space,  which  contains  the 
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simulate-trip  operator,  and  the  selection  space,  which  implements  depth-first  search  (usually 
referred  to  as  lookahead  search  in  the  context  of  Soar). 

In  the  top  instance  of  the  task  space  (Tl),  a  set  of  simulate-trip  opoators  is  proposed  (per  Step 
1).  These  tie,  resulting  in  an  impasse.  The  sel«:tion  space  (SI)  is  selected  automatically  for  the 
subgoal  (by  Soar’s  default  productions).  In  the  selection  ^ace,  the  default  productions  create  an 
evaluate-object  operator  for  each  tied  alternative.  The  evaluate-object  operators  are  given 
indifferent  preferences,  so  one  is  selected  (at  random  or  in  a  prescribed  pattern;  see  the  Soar 
user-select  command).  Evaluate-object  itself  impasses,  and  in  the  resulting  subgoal  the  default 
productions  cause  the  task  space  to  be  select^  (T2).  This  subgoal  is  referred  to  as  the 
evaluation  subgoal.  The  operator  being  evaluated  is  then  selected  automatically,  under  the 
assumption  that  it  might  generate  a  state  that  either  succeeds  or  fails  (or  might  otherwise  yield 
information  that  allows  the  operator  to  be  evaluated).  This  automatically-selected  operator  is 
referred  to  as  the  lookahead  operator. 

In  the  left-most  evaluation  subgoal  (T2),  the  lookahead  operator  causes  a  local  constraint 
violation.  (The  space  that  applies  simulate-trip  is  omitted,  but  see  Figure  3.)  The  violation  is 
detected  (per  Step  2),  and  results  in  a  failure  evaluation  for  evaluate-object.  T2  exits,  and  a 
second  evaluate-object  operator  is  selected. 


Figure  2:  Trace  of  lookahead  search 
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The  lookahead  operator  in  T3  yields  neither  constraint  violations  nor  success.  A  new  set  of 
simulate-trip  operators  is  proposed  (based  on  the  updated  sets  of  unassigned  trips  and  available 
trucks  and  drivers).  The  resulting  tie  leads  to  a  new  instance  of  the  selection  space  (S2).  Below 
S2,  in  T4,  the  simulation  leads  to  a  global  constraint  violation  (per  Step  3).  As  with  a  local 
constraint  violation,  this  generates  a  failure  evaluation,  causing  T4  to  exit  and  another  alternative 
to  be  evaluated. 

In  TS,  the  lookahead  operator  violates  no  local  constraints,  and  leads  to  a  state  in  which  only 
one  new  simulate-trip  operator  is  proposed.  That  operator  is  selected,  and  results  in  a  state  in 
which  no  trips  are  left.  The  space  exits  with  a  success  evaluation  (per  Step  4).  The  default 
productions  propagate  success  up  to  T1  (and  would  propagate  it  further  if  there  were  more 
levels).  This  breaks  the  tie  in  Tl,  with  the  lookahe^  operator  from  T3  being  selected.  If 
chunking  was  turned  on,  the  success  of  the  lookahead  operator  in  T5  will  have  been  learned  as  a 
chunk  that  selects  that  operator  after  the  first  selection  in  Tl,  leading  directly  to  a  successful  state 
inTl. 

For  further  details  on  lookahead  search,  consult  the  Soar  manual.  The  depth-first  behavior 
described  here  is  only  one  of  many  weak  methods  that  can  arise  fix)m  the  universal  weak  method 
(Laird,  1984),  depending  on  how  much  and  what  kinds  of  evaluation  knowledge  are  available. 
For  example,  hill-climbing  arises  if  any  state  can  be  evaluated,  and  not  just  those  that  represent 
failures  or  successes. 


3  J  Static  structure 

The  previous  section  outlined  a  procedure  for  solving  the  shipment  scheduling  task,  and 
described  at  a  high  level  how  that  procedure  could  be  cast  in  terms  of  states  and  operators.  This 
section  describes  in  more  detail  a  set  of  Soar  problem  spaces  for  performing  the  task.  The  first 
pan  of  the  description  is  a  diagram  (Figure  3)  that  shows  the  static  problem  space  structure,  and 
the  second  pan  (beginning  on  page  16)  is  a  texmal  specification.  Both  the  diagram  and  the 
specification  correspond  directly  to  the  code  presented  in  Chapter  4,  so  ambiguities  and  other 
confusions  can  be  resolved  by  looking  there. 

Figure  3  shows  the  operators  in  each  space,  and  the  information  that  flows  between  spaces. 
The  name  of  each  space  appears  at  its  top  right-hand  comer,  and  the  operators  appear  in  the 
interior  of  the  triangle.  The  lines  connecting  spaces  denote  impasses. 

The  remainder  of  this  section  traces  through  the  figure,  showing  how  the  spaces  work  together. 
Note  that  the  diagram  represents  the  static  structure  of  the  system.  This  explains  how  the  task 
space  can  be  connected  to  two  superspaces;  it  responds  to  impasses  in  both,  at  different  times. 
All  the  impasses  represented  in  the  Vagram  are  operator  no-changes;  the  diagram  omits  the 
operator  tie  impasse  that  occurs  in  the  task  space  (on  simulate-trip  operators),  which  leads  to  the 
selection  space.  This  interaction  is  described  in  Figure  2. 

The  do-task  operator  in  the  top  space  is  applied  in  the  task  space.  To  carry  out  the  task, 
operators  in  the  task  space  need  access  to  the  information  from  the  tables,  and  initial  values  for 
the  trip,  truck,  and  driver  sets.  When  the  task  space  exits,  it  returns  the  complete  schedule  to  the 
top  space  as  the  solution  to  the  task. 
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The  simulate-trip  operator  in  the  task  space  is  applied  in  the  simulate-trip  space.  Simulate-trip 
takes  the  particular  assigiunent  and  simulates  the  trip.  As  part  of  its  result,  the  space  updates  the 
trip,  truck,  and  driver  sets  by  removing  those  involved  in  the  trip  it  just  simulated.  It  also  returns 
an  indication  of  whether  any  local  constraints  were  violated  during  the  simulation.  If  not,  it 
returns  the  schedule  as  updated  with  the  addition  of  the  trip  just  simulated. 

If  a  simulation  generates  a  local  constraint  violation,  the  task  space  passes  the  violation  signal 
directly  up  to  the  selection  space  above,  if  the  task  space  occurs  in  an  evaluation  subgoal.  The 
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default  productions  in  the  selection  space  act  on  the  failure  by  temiinating  the  evaluate-object 
operator  and  selecting  a  new  one.  However,  if  the  simulation  is  successful,  a  new  simulate-trip 
operator  is  selected  in  the  task  space. 

If  after  a  simulation  the  task  space  finds  that  all  trips  have  been  assigned  to,  the 
schedide-succeeds  operator  is  propos^.  This  returns  a  success  signal  to  the  selection  space  if 
this  is  an  evaluation  subgoal,  or  the  conqtlete  schedule  to  the  top  space.  If,  on  the  otiiCT  hand, 
there  comes  a  point  where  there  are  still  trips  to  be  assigned  to  but  no  simulate-trip  operators 
proposed,  then  the  global-constraint-failed  operator  is  selected.  This  returns  a  failure  signal  to 
the  selection  space. 

In  the  simulate-trip  space,  the  simulate-segment  operator  is  selected  once  for  each  segment  of 
the  trip.  If  after  any  segment  a  resource  (such  as  tmck  capacity)  is  found  to  have  run  out,  the 
local-constraint-failed  operator  is  selected.  This  operator  returns  a  failure  signal  to  the  task 
space,  causing  the  simulate-trip  operator  to  terminate  (thereby  terminating  the  simulate-trip 
subgoal).  The  task  space  then  terminates  as  well,  as  described  above.  If,  on  the  other  hand,  all 
the  segments  are  simulated  with  no  violations,  the  trip-succeeds  operator  is  selected.  This 
operator  updates  the  trip,  truck,  and  driver  sets  in  the  task  space,  and  returns  the  updated 
schedule. 

The  simulate  segment  operator,  when  selected,  impasses,  because  simulating  a  segment 
involves  several  operations.  These  occur  in  the  simulate-segment  space.  The  operations  for 
each  segment  consist  of  loading  any  shipments  at  the  beginning  of  the  segment,  followed  by  the 
drive  to  the  next  location,  followed  by  unloading  shipments  to  be  delivered  at  that  location. 
Loading  and  unloading  affect  the  volume  and  weight  capacities  remaining  for  that  trip,  and 
driving  affects  the  time  the  driver  has  been  on  the  road.  When  the  segment  is  complete,  the 
compute-resources  operator  computes  the  remaining  resources  and  checks  if  any  have  run  out, 
and  if  so  signals  a  local  constraint  violation  on  the  superstate.  If  not,  the  update-resources 
operator  updates  the  resources  on  the  superstate,  in  preparation  for  the  next  segment. 


The  Soar  pseudo-trace  in  Figure  4  brings  together  both  static  and  dynamic  aspects  of  the 
system.  The  labels  for  task  and  selection  spaces  from  Figure  2  appear  along  the  right  margin. 
TTie  space  and  operator  names  are  earned  over  from  Figin«  3.  The  impasse  types  are  also  given. 

G:  gl 

S:  pi  (top-space) 

£;  si 

0:  ol  (do-task) 

>->G:  g2  (operator  no-ebaage) 

P:  p2  (task)  T1 

S:  s2 

«>G:  g3  (operator  tie) 

P:  p3  (selection)  SI 

S:  s3 

0:  o3  (evaluate-object  (sieulata-trlp  ((gray)  (piper)  (trip2)))) 

=>G:  g4  (operator  no-ebange) 

P:  p2  (task)  T2 

S:  dl  (di^llcates  s3) 

0:  cl  (simulate-trip  (gray)  (piper)  (trlp2)) 

•=>6:  gS  (operator  no-ebange) 

P:  p4  (simulate-trip) 

S:  s4 

O:  o4  (aiaulate-segswnt  segmentl) 

. .  .  ...intermediate  segments 

O:  o20  (slsulate-segnsnt  segmant6) 

>bx;;  g2l  (operator  no-chaage) 

P:  p21  (simulate-segment) 

S:  a21 

0:  o21  (load  (newsprint  6000.0)) 

O:  o22  (drive) 

O:  o23  (coapute-resouroes) 

O:  024  (update-resources) 

O:  o2S  (loeal-oonstralat-fallure  weigbt-llmlt-exceeded) 

Evaluation  of  operator  cl  (siaulate-trip)  is  failure 
0:  o26  (evaluate-object  (simulate-trip  ((green)  (cannonball)  (trlp3)))) 
g22  (operator  no-ebange) 

P:  p2  (task)  H 

S:  d2  (duplicates  s3) 

O:  c2  (simulate-trip  (green)  (cannonball)  (trlp3) ) 

. . .  ..jimulation  is  successful 

O:  o27  (trlp-succeeds) 

•>>G:  g23  (operator  tie) 

P:  p23  (selection)  52 

S:  s22 

0:  o28  (evaluate-object  (simulate-trip  ((brown)  (piper)  (trlpl) ) ) ) 

B>G;  g24  (operator  no-ebange) 

P:  p2  (task)  T4 

S:  d3  (duplicates  d2) 

0:  c3  (simulate-trip  (brown)  (piper)  (trlpl)) 

.  .  .  ...intermediate  trips 

O:  o40  (global-ceostralnt -violation  trips-left-over) 

Evaluation  of  operator  c3  (simulate-trip)  Is  failure 
O:  o41  (evaluate-object  (simulate-trip  ( (gray)  (piper)  (trlpl) ) ) ) 

— ■>&:  g25  (operator  no-ebange) 

P:  p2  (task)  T5 

S:  d4  (duplicates  d2) 

O:  c4  (siaDulate-trlp  (gray)  (piper)  (trlpl)) 

O:  oSO  (simulate-trip  (brown)  (traveler)  (trlp2) ) 

0:  o70  (scbedule-succeeds) 

Evaluation  of  operator  c4  (simulate-trip)  is  success 

.  .  .  ..success propagates  up  to  T1 


Figure  4:  Pseudo-trace  corresponding  to  Figures  2  and  3 
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33.4.  A  detailed  design 

This  section  specifies  the  operators  in  more  detail,  giving  their  arguments  (in  parentheses)  and 
their  semantics  in  terms  of  conditions,  effects,  and  termination  conditions.  Where  appropriate, 
information  about  state  contents  and  operator  search  control  is  also  given. 

•  top>space^ 

State  (also  called  the  top  state)’.  Contains  the  invariant  information  from  the  tables, 
which  is  used  to  initialize  dynamic  values  like  the  trip,  truck,  and  driver  sets. 

Operators: 

1.  do<task 

Conditions:  Proposed  without  conditions. 

Also  called  the  task  operator.  Applied  in  the  task  space. 

Effects:^  Adds  the  completed  schedule  to  the  state. 

Termination:  Automatic,  when  a  successful  or  failed  state  is  reached  in  the 
subgoal  that  applies  it^ 


‘The  space  itself  is  provided  by  TAQL  by  default 

^The  effects  of  an  operator  applied  in  a  subspace  are  carried  out  by  the  subspace, 
^is  termination  is  {vovided  by  TAQL’s  runtime  support. 
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•  task 

State:  Contains  trip,  truck,  and  driver  sets,  either  initialized  from  the  top  state  (when 
below  the  top  space),  or  duplicated  fr^om  another  instance  of  the  task  space  (when 
below  the  selection  space). 

Operators: 

1.  simulate-trip  (trip,  truck,  driver) 

Conditions:  Reads  the  current  state’s  trip,  truck,  and  driver  sets.  Checks  that 
the  assignment  satisfies  the  immediate  constraints  that  the  driver  and  the 
truck  be  in  the  city  where  the  trip  begins,  and  that  the  driver  is  licensed  for 
the  truck. 

Applied  in  the  simulate-trip  space,  which  checks  local  constraints  by 
simulating  the  trip  with  that  truck  and  driver. 

Effects:  Updates  the  trip,  truck,  and  driver  sets  by  removing  its  arguments 
frpom  them.  Updates  the  current  schedule  if  no  local  constraints  are  violated. 

Termination:  Terminates  (1)  if  the  subspace  updates  the  current  schedule 
with  the  simulated  trip,  or  (2)  if  the  subspace  signals  a  locai  constraint 
violation. 

2.  schedule-succeeds  (complete-schedule) 

Conditions:  Proposed  when  the  trip  set  is  empty. 

Effects:  Signals  success  in  the  superspace,  either  via  evaluation  knowledge 
(during  lookahead  search)  or  the  goal  test  (when  the  superspace  is  the  top 
space).  If  the  superspace  is  the  top  space,  returns  complete-schedule. 

Termination:  By  higher  decision.^ 

3.  giobal-constraint-failed 

(Conditions:  Proposed  without  conditions,  but  made  worst  Consequently, 
selected  only  when  there  are  trips  left  over  (inhibiting  schedule-succeeds) 
but  no  simulate-trip  operators  are  proposed.  TOs  condition  implies  a  global 
constraint  violation. 

Effects:  Signals  failure  in  the  superspace,  either  through  evaluation 
knowledge  (during  lookahead  search)  or  the  goal  test  (when  the  superspace 
is  the  top  space). 

Termination:  By  higher  decision. 


"^When  infonnation  is  returned  that  resolves  an  impasse  in  the  supercontext.  Soar  terminates  all  lower  selections. 
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•  simulate-trip 

State:  Contains  resources  (initially  the  time  for  which  the  driver  can  be  on  the  road, 
and  the  weight  limit  and  volume  of  the  truck),  and  the  current  segment  of  the  trip 
being  simulated.  Initialized  from  the  superoperator,  and  updated  by  simulate- 
segment. 

Operators: 

1.  simulate-segment  (segment,  resources) 

Conditions:  Reads  the  segment  and  resources  from  the  state. 

Applied  in  the  simulate-segnsent  subspace,  which  loads,  unloads,  and  drives 
as  necessary  for  that  segment  The  subspace  signals  if  a  resource  went 
negative,  or  any  other  local  constraint  was  violated  (such  as  White  being 
arrested  because  the  segment  ends  in  Illinois). 

Effects:  Changes  the  current  segment  to  be  the  next  segment  and  updates  the 
resources  on  the  current  state.  Signals  failure  on  the  current  state  if  there 
was  a  constraint  violation  (see  local-constraint-failed). 

Termination:  Terminates  (1)  when  the  current  segment  becomes  the  next 
segment  if  there  is  no  constraint  violation;  or  (2)  when  a  constraint  violation 
occurs. 

2.  trip-succeeds  (assignment) 

Conditions:  Proposed  without  conditions,  but  made  worst  Consequently, 
selected  only  when  there  are  no  more  simulate-segment  operators  and  no 
constraint  violations. 

Effects:  Adds  assignment  to  the  current  schedule  on  the  superstate,  allowing 
the  superoperator  to  terminate.  Also  updates  the  trip,  truck,  and  driver  sets 
on  the  superstate. 

Termination:  By  higher  decision. 

3.  local-constraint-failed  (failed-assignment) 

Conditions:  Proposed  if  simulate-segment  signals  failure,  and  selected 
immediately  when  proposed. 

Effects:  Signals  failure  in  the  supercontext,  allowing  the  assign  operator  to 
terminate.  Returns  failed-assigiunent  to  the  superstate,  so  we  can  figure  out 
what  happened. 

Termination:  By  higher  decision. 
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•  simulate-segment 

State:  Contains  resources  (weight,  volume,  time),  initialized  firom  the  superoperator. 

Search  control:  A  segment  begins  with  a  load  (if  any),  and  ends  with  an  unload  (if 
any).  Therefore,  for  correctness  with  respect  to  the  truck’s  weight  limit  and  volume, 
lo^  must  be  selected  before  unload. 

Operators: 

1.  load  (volume,  load-time,  weight) 

Conditions:  Proposed  if  there  is  a  shipment  to  load  in  the  beginning  location. 
Effects:  Updates  weight,  volume,  and  time,  on  the  current  state. 

Termination:  By  direct  application.^ 

2.  unload  (volume,  unload-time,  weight) 

Conditions:  Proposed  if  there  is  a  shipment  to  unload  at  the  end  location. 
Effects:  Updates  weight,  volume,  time. 

Termination:  By  direct  application. 

3.  drive  (time) 

Conditions:  Proposed  without  conditions  (segments  always  involve  driving). 
Effects:  Updates  time. 

Termination:  By  direct  application. 

4.  compute-resources 

Conditions:  Proposed  without  conditions,  but  made  worst  Consequently, 
selected  when  all  other  operations  have  been  carried  out. 

Effects:  Augments  the  state  with  a  record  of  the  remaining  resources. 
Indicates  in  the  record  whether  resources  went  negative,  or  whether  any 
other  local  constraints  were  violated  (such  as  White  being  arrested  in 
Illinois). 

Termination:  By  direct  application. 

5.  update-resources  (resource-record) 

Conditions:  Proposed  when  the  resource  record  has  been  computed. 

Effects:  Returns  resource-record  to  the  superstate.  Changes  the  current 
segment  to  be  the  next  segment  on  the  superstate,  allowing  the  superoperator 
to  terminate. 

Termination:  By  higher  decision. 


*When  an  operator  is  apphed  entirely  by  an  apply-opcrator  TC.  edits  in  the  TC  terminate  the  operator. 
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3.4.  Notes  on  Chunking 

Section  3.4.1  discusses  some  general  aspects  of  chunking  in  Soar.  Section  3.4.2  examines 
some  of  the  code  from  Ch^ter  4  in  light  of  how  it  affects  chunking.  Novice  Soar  users  are 
advised  to  skim  this  section  for  future  reference,  rather  than  read  it  for  understanding 
immediately.  Section  3.4.3  briefly  discusses  a  sample  expensive  chunk. 


3.4.1.  Correctness,  generality,  and  backtradng 

There  are  two  aspects  to  good  chunks:  correcmess  and  generality.  These  aspects  trade  off: 
incorrect  chunks  are  often  that  way  because  they  are  overgeneral.  There  is  usually  an 
identifiably  optimal  degree  of  gener^ty,  in  which  the  chunk  conditions  are  the  weakest  that 
guarantee  that  the  knowledge  contained  in  the  action  is  correct  This  applies  to  both  forms  of 
chunks  learned  in  the  sample  implementation  (operator  application  chunks,  which  modify  the 
state,  and  search  control  chunks,  which  create  preferences  for  operators). 

Chunk  conditions  are  created  by  a  dependency  analysis  on  subgoal  results,  called  backtracing. 
Backtracing  is  a  form  of  operator  regression  (MitcheU  et  al.,  1986).  In  Soar  terms,  backtracing 
involves  tracing  through  working  memory  elements  that  were  added  and  deleted  from  working 
memory  during  processing  in  the  subgoal,  begirming  with  the  subgoal  result  and  working  back  to 
the  working  memory  elements  that  it  depends  on. 

Figure  5  shows  a  simple  example  of  subgoal-result  generation  and  backtracing.  The  initial 
state  is  created  from  supercontext  augmentations  augl  and  aug2.  Augmentations  aug3  and  aug4 
are  copied  down  directly  from  the  supercontext  Operator  1  tests  orrly  the  state,  and  generates 
augmentation  aug5.  Opmtor  2  generates  aug6  from  aug3  and  aug4.  Operator  3  generates  aug7 
from  aug5  and  aug3.  Finally,  Operator  4  genoates  augS,  the  subgoal  result  from  aug7. 
Backtracing  follows  this  dependency  path  backwards,  starting  with  aug8.  Aug6,  and  before  that 
aug4,  are  irrelevant  to  the  subgoal  result  and  therefore  are  not  included  in  the  chunk  conditions. 
Note  that  every  operator  must  test  the  state,  either  to  edit  the  state  directly  or  to  reach  the  objects 
that  will  be  edited,  and  therefore  backtracing  will  always  reach  the  augmentations  used  to 
generate  the  initial  state  (augl  and  aug2,  in  the  figure). 


(-att 

augS) 

chunk 

actions 


Figure  5:  Simple  backtracing  example 
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Productions  that  create  desirability  preferences  (other  than  the  require  and  prohibit 
preferences,  which  are  special  cases)  are  not  backtraced  through,  even  if  they  bring  about  a 
particular  operator  selection.  The  underlying  premise  is  that  search  control  affects  only  the 
efficiency  and  not  the  correctness  of  problem-solving  (Rosenbloom  et  al.,  1987).  Consequently, 
encoding  various  forms  of  knowledge  in  terms  of  search  control  rather  than  conditions  on 
opc.  itor  proposal  is  a  powerful  mecharusm  for  modulating  the  generality  of  chunks. 


3.4.2.  Preventing  incorrect  chunks 

One  of  the  main  causes  of  incorrect  chunks  is  the  exhaustion  problem.  One  way  this  can  arise 
is  if  an  operator  is  proposed  with  very  weak  conditions,  and  made  worst  so  that  it  will  be  selected 
only  when  the  set  of  other  operators  is  exhausted.  This  is  a  convenient  programming  teclmique, 
as  illustrated  by  several  operators  in  the  sample  implementation  (global-constraint-failed, 
selected  when  there  are  neither  simulate-trip  operators  nor  a  schedule-succeeds  operator 
proposed;  trip-succeeds,  selected  when  all  simulate-segment  operators  are  exhausted;  and 
compute-resources,  selected  when  the  operations  for  a  particular  segment  are  exhausted).  The 
drawback  relates  to  subgoal  results  based  on  effects  of  that  operator;  the  weak  proposal 
conditions  present  little  for  backtrace  to  work  with,  so  the  conditions  of  the  resulting  chunk  wiU 
be  wildly  overgeneral. 

The  sample  implementation  shows  two  responses  to  the  exhaustion  problem.  The  first 
response,  which  is  to  learn  nothing,  is  illustrated  in  the  TAQL  constructs  (TCs)  in  Figure  6  (they 
appear  in  the  code  on  pages  33  and  34),  The  global-constraint-failed  augmentation  is  added  by 
task*ao*global-constraint-failed  and  detected  by  eo*task,  which  assigns  the  novalue  evaluation 
for  that  case.  This  triggers  a  Soar  feature  (use  of  the  quiescence  t  goal  augmentation)  that  allows 
a  production  to  return  a  result  with  no  chunk  being  built  A  novalue  evaluation  is  interpreted  as 
knowledge  that  this  path  is  fruitless,  with  no  corresponding  knowledge  (or  desire  to  generate  it) 
about  how  to  assign  credit. 

(apply-operator  task*ao*global-constraint-f ailed 
: space  task 

:op  (global-constraint-failed  ^reason  <reason>) 

(edit  : what  state 

:new  (global-constraint-failed  <reason>) ) ) 


(evaluate-object  eo*task 
: space  task 
:what  lookahead-state 


:  symbolic-value 
. .  .) 


(novalue 

:when  ((state  ^global-constraint-failed})) 


Figure  6:  Novalue;  backtracking  without  chunking 

A  second  response  is  to  make  up  for  the  lack  of  constraint  in  the  proposal  productions  by 
adding  conditions,  in  either  the  proposal  or  the  application  TC  for  an  operator.  This  is  illustrated 
in  the  TC  in  Figure  7  (which  appears  in  the  code  on  page  36).  Sometimes  these  conditions  arise 
naturally,  as  when  it  is  necessary  to  bind  information  that  will  be  used  later.  For  example. 
Condition  1  binds  the  trip,  truck,  and  driver  elements  that  are  removed  by  the  edit  clause  of  the 
TC. 
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(apply-op«r«tor  sisiulate-trip*ao*trip-aucceeds 
: space  simulate-trip 
:op  (trip-succeeds  ^assignment  <new>) 

:when  ((operator  (car  <ne«>)  Condition  1 

^trip  <trip>  ^driver  <driver>  ^truck  <truc]c>) ) 

; ;  the  chunks  that  update  the  schedule  in  the  si^rcontezt  will 
; ;  loop  Tuless  we'  re  careftil,  because  one  chunk  rejects  the 
; ;  current  head  of  the  list,  and  a  second  adds  the  new  head. 

;  we  can  prevent  looping  by  the  chunks  specific  to  the 

; ;  current  head  of  the  list .  <current-trip-naffle>  matches  a 
;;  constant,  and  that  constant  will  appear  in  the  chunk: 

:when  ((superstate  ^current-schedule  <current>) 

(operator  (car  <current>)  ^trip  <current-trip>) 

(trip  <current-trip>  ^name  <current-trip-naffle>) }  Condition  2 

(edit  : what  superstate 

; ;  push  the  new  trip  onto  the  head  of  the  schedule  list : 

: replace  (current-schedule  :by  <new>) 

: remove  (trip  <trip>) 

: remove  (driver  <driver>} 

: remove  (truck  <truck>) ) ) 

Figure  7:  Conditions  that  bind  constants 

Frequently,  however,  building  hazard-firee  chunks  requires  a  comprehensive  approach, 
combhiing  an  appropriate  representation  of  the  data  with  correct  manipulations  at  run-time.  The 
Soar  manual  (beginning  on  page  119)  discusses  data  representation  issues,  among  them 
techniques  for  achieving  maximally  general  (but  still  correct)  chunks.  The  remainder  of  this 
section  presents  methods  of  manipulating  data  to  affect  chunk  generality. 

Returning  to  Figure  7,  Condition  2  uses  constant  binding  to  ensure  that  chunks  built  from 
replacing  the  head  of  a  list  do  not  cause  problems.  Constant  binding  exploits  the  fact  that  Soar 
replaces  object  identifiers  in  chunks  with  variables  but  leaves  constants  in  place.  Thus,  binding  a 
constant  makes  the  chunk  specific  to  the  name  of  the  element  pushed  on  the  list.  If  this  were  not 
done,  the  chtmk  built  from  severing  the  pointer  to  the  first  element  of  the  list  would  fire 
whenever  that  pointer  were  set 

Condition  2  also  has  a  less  obvious  effect  Consider  the  two  simulate-trip  operators  in  the 
trace  excerpt  in  Figure  8  (the  excerpt  begins  on  page  44).  As  the  second  simulation  io380)  is 
being  carried  out  a  constraint  violation  occurs.  The  default  productions  convert  the  violation 
into  a  failure  evaluation  (for  the  first  simulate-trip  operator,  since  it  is  the  one  being  evaluated). 
The  failure  evaluation  results  in  a  search-control  chunk  (p946)  that  in  the  future  will  reject 
operators  similar  to  c374  under  similar  circumstances. 

Figure  9  shows  p946  (with  some  of  the  more  ghastly  conditions  excised;  the  full  chunk  appears 
in  the  chunk  listing  on  page  52).  The  effect  of  Conation  2  is  u>  cause  the  brown/traveler/tripl 
assignment  to  be  rejected  specifically  when  the  previous  assignment  involved  trip3.  There  is  no 
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34  O:  o344  (((brown)  (traveler)  (tripl)  simulate-trip)  evaluate-object) 

38  O:  c374  ((brown)  (traveler)  (tripl)  simulate-trip) 

68  O:  o419  (trip-succeeds) 

69  O:  o380  ((gray)  (piper)  (trip2)  simulate-trip) 

112  0:  o938  (weight -limit -exceeded  local -constraint-failed) 

Evaluation  of  operator  c374  (simulate-trip)  is  failure 
Build: p946 

Figure  8:  Lookahead  leading  to  search-control  chunk  p946 

clear  purpose  for  this  condition,  in  terms  of  knowledge  usefully  captured  by  the  chunk.  In  fact, 
this  condition  makes  the  chunk  overspecific,  since  the  relevant  iiiformation  is  only  that  tripl 
caimot  be  completed  with  a  small  truck  (such  as  piper) . 

Questions  of  usefulness  aside,  the  trip3  test  illustrates  how  chunking  can  be  affected  by 


(sp  p94£ 

(goal  <g2>  ^daairad  <d4>  ^xoblan-spaca  <pl>  ^atata  <d2> 

Separator  <ol>  +) 

(problam-apaca  <pl>  [ . . .  ]  *na«a  task) 

(stata  <d2>  ^dasny-att*  tzua  ^drivar  <d3>  *truck  <t4>  *trlp  <tj> 

^eurrant-sehadula  <11>) 

(drlvar  <d3>  ^drlva-tlaa  12.5  -naaa  gny) 

(truck  <t4>  ‘^voluaa  400  ^waight-liait  5000  ^ypa  saall  ^naaa  plpar) 

(trip  <t3>  *naaa  trlp2  ^first-sagsMuit  <al>)  tnp2 

(sagnant  <sl>  ^narna  sagatantl  ^rlp  trlp2  ^sourea  gary  ^naxt-sagnant  <s2>) 

(sagaant  <s2>  ^naaa  sagmant2  ^rlp  trip2  *naxt-sagiiiant  <s3>) 

(sagiaant  <s3>  *naB>a  sagaaat3  '^rip  trip2  ^axt-sagmant  <s7>) 

(sagaant  <s7>  ^load-shipaant  earpat  -'^load-shipaant  NIL  *namB  sagaant4 
^trip  trlp2  ‘^naxt-sagaant  <s8>) 

(sagaant  <s8>  *unload-shipaant  eazpat  -^unload-shipaant  NIL 
^naaa  sagaant5  ^rlp  trip2  *naxt-sagaant  <s9>) 

(sagaant  <s9>  ^load-shlpaant  nawsprlnt  -^load-shipaant  NIL  ^naaa  sagaantS 
^trip  trip2) 

(list  <11>  *car  <el>) 

(oparator  <cl>  '^rip  <t2>) 

(trip  <t2>  ^naaa  trlp3)  trip3 

(oparator  <ol>  [...]  *nima  slaalata-t3d.p  <ol> 

^rlp  <t5>  ‘'truck  <tl>  ‘'driver  <dl>) 

(trip  <t5>  ‘'naaa  tripl)  tripl 

(truck  <tl>  ‘'voluaa  640  ^waight-liait  10000) 

(drlvar  <dl>  '‘drlva-tiaa  11) 

(goal  <gl>  ^objact  NIL  ^stata  <s6>) 

(stata  <s6>  ‘‘shipaant  <s5>  <s4>  ^lioansa  <12>  ‘'city  <c2>) 

(shipaant  <s5>  ‘'naaa  nawsprlnt  ‘'weight  6000.0  “voluae  400.0 
^load-tiaa  0.2) 

(shipaant  <s4>  *nama  oaxpat  ^weight  500.0  ^voluaa  100.0  ‘'unload-tisa  0.25 
‘'load-tlaa  0.2) 

(lloansa  <12>  ‘'truck-typa  saall  ‘'boldar  gray) 

(city  <c2>  “nasw  gaxy  ^truck  piper  ^driver  gray) 

— > 

(goal  <g2>  ^operator  <ol>  -))  <ol>  - 


Figure  9:  The  search-control  chunk  p9A6 
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manipulating  the  data.  Figure  10  shows  how  backtracing  comes  to  include  trip3  in  the  chunk 
conditions.  The  simulate-trip*ao*trip-succeeds  TC  (of  Figure  7)  replaces  the  current-schedule 
augmentation  while  testing  trip3.  In  Figure  10,  the  new  current-schedule  augmentation  is  Ixxx  (/ 
because  we  know  it  is  a  list  object,  and  xxx  because  unlike  with  operators  we  can  not  determine 
its  identifier  from  the  trace).  This  creates  a  dependency  of  Ixxx  on  trip3.  When  Ixxx  is  tested 
during  the  application  of  o938  (the  simulate-trip*ao'^local-constraint-failed  TC  is  on  page  37), 
the  dependency  is  extended  to  the  subgoal  result.  When  the  chunk  is  built,  o938  acts  as  a  bridge 
from  the  result  to  Ixxx,  and  o419  acts  as  a  bridge  firom  Ixxx  to  trip3.  Trip3  was  copied  directly 
from  the  higher  task  context,  so  backtracing  includes  it  in  the  chunk  conditions.  The  general 
technique  for  ensuring  that  a  particular  condition  (based  on  a  supercontext  augmentation)  is 
included  in  a  chunk  is  to  ensure  that  each  operator  in  the  subgoal  extends  the  dependency,  by 
creating  an  augmentation  while  testing  a  previous  augmentation  that  depends  on  the  one  from  the 
supercontexL 


Note  that  the  augmentation  created  by  one  operator  to  be  tested  by  the  next  need  not  be 
meaningful  beyond  the  function  of  extending  the  dependency.  In  a  variant  known  locally  as 
beading,  the  augmentations  are  simply  new  identifiers,  each  replaced  by  the  next  Backtracing 
then  strings  up  the  identifiers  like  beads,  backtracing  through  whatever  augmentations  were 
tested  in  creating  them.^ 


task 


Figure  10;  Backtracing  to  the  trip3  condition 

A  second  instance  of  constant  binding,  shown  in  Figure  1 1,  does  provide  a  useful  constraint  on 
p946.  During  the  application  of  o380  (between  decision  cycles  69  and  112  in  Figure  8), 
Condition  3  causes  trip!  to  be  included  in  the  backtrace  and  eventually  in  the  chunk  conditions 
(Figure  9).  This  test  is  semantically  relevant  to  the  constraint  that  small  trucks  are  not  able  to 
complete  this  trip. 

For  completeness,  we  also  account  for  the  appearance  of  tripl  (the  third  and  last  trip  name)  in 
the  conditions  of  p946.  The  tripl  test  occurs  because  of  the  simulate-trip*ao*local-constraint- 
failed  TC  (page  37),  which  applies  o938.  The  relevant  condition  (corresponding  to  Condition  2) 


^The  bead  metapnor  is  due  to  Rick  Lewis. 
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(apply-opexator  sisiulate-segBient*ao*con^ute-resource8 
: space  simulate-segment 
:op  coBpute-resources 

; ;  add  the  updated  resources  to  the  object : 

(edit  :what  (:none  resources  <resources>} 

;  add  the  trip,  to  make  sure  that  the  segment  and  trip  r^ay 
; ;  tied  together  in  the  chunks  that  update  the  resources . 

;;  i£  we  don't  do  this,  the  could  transfer 

; ;  incorrectly  to  the  same  segment  of  another  trip . 

: new  (trip  <trip-name> 

:when  ((segment  <8egment>  '^trip  <trip-name>)  > }  Conditions 


) 


Figure  11:  Conditions  that  prevent  ov*rgeneral  stuich-control  chunks 

tests  the  name  of  the  last  trip  pushed  onto  tl«j  cm.'ent  schedule  (tripl,  by  o419).  Note  that  o938 
accesses  tripl  through  bocx,  extending  the  dependency  of  the  subgoal  result  on  trip3  as  described 
at  the  top  of  the  previous  page. 


3.4.3.  Expensive  counks 

The  problem  of  expensive  chunks  (Tambe  et  al.,  1990)  is  a  manifestation  in  Soar  of  the  utility 
problem  in  explanation-based  leammg  (Minton,  1985).  It  can  arise  whenever  a  representation 
uses  sets  (multi-attributes),  such  as  that  of  the  top  state  of  the  sample  implementation. 

The  chunk  in  Figure  12  implements  the  task  operator  (the  chunk  also  appears  on  page  56).  It 
reads  the  top-state  and  creates  the  solution  (the  actions  are  elided).  It  is  expensive  to  match 
because  of  the  combinatorics  in  the  <s4>  condition  (second  from  the  top).  The  'license  test  can 
match  3^  ways,  the  ^ity  test  2^  ways,  the  'driver  test  3^  ways,  etc.  The  match  cost  is 
proportional  to  the  product  of  these  terms. 

For  this  task,  a  set-based  representation  is  a  great  convenience.  However,  the  general  solution 
to  expensive  chunks  is  to  use  structured  representations,  such  as  lists. 


26 


(sp  pl548 

(goal  <gl>  '^objaet  NZIi  ^atata  <a4>  ^problaat-apaea  <pl>  Separator  <ol>) 
(stata  <a4>  ^dunny-a't't*  txoa  ^Uoaaaa  <13>  <12>  <11>  ^ei.'by  <c2>  <cl> 

'^dxlaax  <d2>  <dl>  <d3>  ^ruek  <t4>  <t3>  <t5> 
*trip  <t«>  <t2>  <tl>) 

(pxoblam-apaoa  <pl>  *nama  top-apaoa) 

(lloansa  <13>  ^zuok-typa  saall  ^holdax  gray) 

(city  <c2>  *naii>B  gazy  ^zuek  plpaz  tzaaalaz  ^dzlvar  gzay  brown) 

(lloanaa  <12>  ^zuck-typa  big  *holdar  graan) 

(city  <ol>  *nama  Indy  ^mek  rannonha)  1  ^dzlvaz  gzaan) 

(lloanaa  <11>  ^zuek-typa  narti  un  ^boldaz  brown) 

(drlwar  <d2>  ^naiM  gray  *driwa-tlaia  12.5) 

(truck  <t4>  ^ypa  aaall  - plp*^  ^woltna  400  ^al^t-llAlt  5000) 

(trip  <t6>  *naBia  trlpl  *glrat-aagiiiant  <a3>) 

(aagaaant  <a3>  ^aouroa  gary) 

(drlvar  <dl>  *drlwa-tlaa  11  ^aa>T  graan) 

(truck  <t3>  ^woluaw  1280  •*T*a1ght  Halt  32000  '^typa  big  ^nama  cannonball) 
(trip  <t2>  *naiaa  trlp3  *flrat-aagaiant  <a2>) 

(aagaaant  <a2>  ^aouroa  Indy) 

(drlvar  <d3>  ^drlva-tlxaa  11  ^naaa  brown) 

(truck  <t5>  ^oluata  640  ^^walgbb-Uaalt  10000  ^ypa  aadiwm  ^nana  travalar) 
(trip  <tl>  *nama  trlp2  Irat- aagmant  <al>) 

(aagaaant  <al>  ^aourca  gary) 

(oparator  <ol>  *naaaa  do-taak  ^control -atuff*  <c3>) 

(control-atuff*  <c3>  ^adlt-froai-aubgoal-anablad*  trua) 

— > 

...) 


Figure  12:  An  expensive  chunk 
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4.  Sample  Implementation  in  Soar 

4.1.  Introduction 

This  chapter  presents  a  sample  implementation  for  the  shipment  scheduling  assistant.  This 
implementation  serves  as  a  reference  for  the  design  given  in  Chapter  3. 

Section  4.2  is  a  program  listing,  organized  by  problem  space.  Section  4.3  is  an  execution 
trace,  followed  by  statistics  on  the  run  and  the  source  code.  Section  4.4  is  a  listing  of  the  chunks 
generated  during  the  run,  useful  for  cross-referencing  with  the  trace,  and  as  a  reference  for  the 
discussion  of  learning  in  the  previous  chapter.  For  information  on  obtaining  on-line  versions  of 
these  files,  send  mail  to  soar-requests@cs.cmu.edu. 


4.2.  Program  Listing 


Mod*:  EAQL  -* 


Fll* 

Author 
Cx**t*d  On 
I.*at  Modiflod  By: 
Laat  Modlflod  On: 
Opdat*  Count 
Soar  Varalon 
C&QL  Voraion 


/af a/ea .  obu  .  *du/u**r/a1  tmann/taql/trucJc/truch .  taql 

Brlk  Altaiann 

Sat  Sap  28  20:56:38  im 

Brlk  81  f-mann 

M*d  Jun  3  20:14:15  1992 
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5.2.1 

3.1.4 


POBPOSB 

Soar  ia^lamantatlon  of  th*  Sblpoant  Sch*dullng  Aaalatant, 
a.k.a.  tb*  Trucking  Taak.  Buna  with  chunking  on.  S*e  traca.txt 
for  a  trac*,  and  chunka.aoar  for  th*  corroapondlng  chunk*. 

nUBLB  OF  CONTENTS 

In  t*ru  of  apaeaa:  top-apac*.  taak,  alaulat*-trlp,  and 
aljaulat*-a«gB*nt .  To  roach  tb*  cod*  for  SP8CB,  aaarcb  for 
‘'pa*SP8CB'',  which  will  locat*  th*  propoa*-apac*  TAQL  conatruct 
for  that  apac*. 

(C)  Copyright  1991,  Camogl*  Mallon  Unlvaralty,  all  right*  raaorvad. 


;;  objoct/attrlhut*  pair*  for  Soar  trac*.  th*  valu*  of  oacb  attrlbot* 

; ;  will  b*  prlntod. 

(traco-attrlbutoa  '  ;  attrlbutoa  of  tb*  alaailato-trlp  oparator  (In  tb*  taak  apace); 

(oporator  drlv*r) 

(oparator  truck) 

(oparator  trip) 

;  attrlbutoa  of  oparator*  In  tb*  alaolata-trlp  apac* : 

(operator  aagaant)  ;  aiaulata-aognant 

(operator  raaaon)  ;  trip-aucc**da 

;;  attribute*  of  operator*  In  tb*  alanlata-aagnent  apace; 
(operator  ahlpa*ot-nama) 

(operator  voluaM) 

(operator  load-tlaw) 

(operator  unload-tlaa) 

(operator  weight) 

(operator  tlaw) 

)) 
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;;  top- space: 


;;  tha  top  contazt  contains  the  task  state  and  the  task  operator,  the 
;  task-state  contains  ail  the  static  infosaation  for  the  task,  the 
;;  task  operator  is  bare. 

;;  the  space  is  proposed  automatically  hy  taql's  run-tisie  support,  so 
;;  there  is  no  ps*top-space  tc. 

(propose-task-state  pts*task 

: new  (weather  rain) 

: new  (driver 

( (driver  *naae  green  '^union  yes  '^drive-tiaw  11) ) 

((driver  ^name  white  '‘union  no  '‘drive-tine  12.5)) 

( (driver  ^nane  brown  'union  yes  ^drive-tisM  11) ) 

((driver  'name  gray  ''union  no  'drive-time  12.5))) 

;;  the  hierarchy  of  licenses  is  ii^lieit  in  the  'holders: 

;;  everyone  holds  type  1,  fewer  hold  type  2,  fewest  hold  type  3: 

: new  (license 

( (license  'name  class3  'truck-type  big 
'holder  green  -f  fi,  brown  +  £)) 

( (license  'nasM  elass2  'truck-type  medlimi 

'holder  green  +  t,  brown  -f  t,  white  •!■£)) 

( (license  'nasm  classl  'truck-type  small 

'holder  green  -f  i,  brown  £,  white  t  6,  gray  +  t))) 


: new  (truck 

( (truck  'naaw  cannonball  'type  big  'welf^t-limit  32000  'volume  1280) ) 
((truck  'name  piper  'type  saull  'weigbt-liaiit  5000  'volume  400)) 

((truck  'name  traveler  'type  medium  'weight-limit  10000  'volume  640)) 

( (truck  'nasM  gueen-laee  'type  medlntn  'weight-limit  10000  'volume  640) ) ) 

:naw  (city 

( (city  'name  gary  'state  Indiana 

'driver  brown  +  6,  gray  +  6 
'truck  piper  -f  6,  traveler  4-  6) ) 

( (city  'name  indy  'state  Indiana 

'driver  green  -f  a,  white  -f  £ 

'truck  caimonball  -f  £,  queen-bee  *  t)) 

( (city  'naam  utica  'driver  nil  'truck  nil  'state  Illinois) ) 

( (city  'naam  viola  'driver  nil  'truck  nil  'state  Illinois) ) 

( (city  'name  Warsaw  'driver  nil  'truck  nil  'state  Indiana) ) 

( (city  'naam  kokomo  'drl'ver  nil  'truck  nil  'state  Indiana) ) 

( (city  'naam  attica  'driver  nil  'truck  nil  'state  Indiana) ) 

( (city  'naM  cook  'driver  nil  'truck  nil  'state  Indiana) ) ) 

:naw  (shipment 

((shipment  'name  typewriters  'weight  1000.0  'volusm  200.0 
'load-time  .2  'unload-time  .25)) 

( (shlpemnt  'name  carpet  'wel^t  500.0  'voluam  100.0 
'load-time  .2  'unload-tlma  .25)) 

( (shipsmnt  'name  newsprint  'weight  6000.0  'voluam  400.0 
'load-time  .2  'unload-tima  .25))) 
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;  trip  1: 

MW  (trip 

( (trip  *n«—  trlpl  *fir«t-»«j—nt  <•!>) 

(••gnant  <•!>  ■■j—nfl  ^ro«d  ti30  '^•ourea  gary  ^daat  waraaw 

^load-ablpaant  typawrltara 
^unload- ahlpawnt  nil 
^trip  trlpl 
^naxt-aagaant  <a2>) 

(aagnant  <a2>  ^naaa  aagaant2  ^road  uSla  '^aourea  waraaw  ^daat  kokoao 
^load-abipmant  nil 
^nnload-ablpownt  nil 
^trlp  trlpl 
*naxt -  aagiaant  <a3>) 

(aagaant  <a3>  '^naaa  aarjmann  ^road  n3lb  ^aourea  kokono  '^daat  in<fy 
^load-ahlpaMnt  nil 
^unload-ahlpawnt  nil 
^trlp  trlpl 
^naxt-aagraant  <a4>) 

(aagamnt  <a4>  ^naaa  aarpnant  I  '^road  174  ^aourea  Indianapolla  ^daat  attlca 
'^load-ahlpaMnt  nil 
‘'ninload-ahlpnant  typawrltara 
^trlp  trlpl) ) ) 

;  trip  2: 
naw  (trip 

( (trip  ^naata  trlp2  ^flrat-aagnant  <al>) 

(aagmant  <al>  '^naata  aagawntl  '^road  ii41a  '^aourea  gazy  ‘^daat  cook 
^load-ahlpaaant  nil 
'^unload- ahlpoant  nil 
^trlp  trlp2 
^naxt-aagaant  <a2>) 

(aagaant  <a2>  ^naaa  aagiaant2  ^road  laob  ^aourca  cook  ‘^dast  utlca 
^load-ahlpaant  nil 
'Sinload-ablpnant  nil 
^trlp  trlp2 
‘^naxt- aagaant  <a3>) 

(aagaant  <a3>  ^naaa  aagaant3  ^road  140a  ^aourca  utlca  ^deat  viola 
^load-ablpaant  nil 
^unload-ablpoant  nil 
‘'trip  trlp2 
^naxt-aagaant  <a4>) 

(aagaant  <a4>  ^naaa  aagaant4  ^road  ISOa  ^aourca  viola  ^daat  utlca 
^load-ablpaant  carpat 
‘'unload-  ah)  paant  nil 
^trlp  trlp2 
‘'naxt- aagaant  <a5>) 

(aagaant  <a5>  ^naaa  aagaantS  ^road  180b  ^aource  utlca  ^daat  cook 
^load-ahlpaant  nil 
^unload-ablpaant  carpat 
''trip  trlp2 
‘'naxt- aagaant  <a6>) 

;;  nota  tba  aavaral  nil  flalda.  trlp2  anda  oddly,  with  doing  a  load: 
(aagaant  <a6>  ‘'naaa  aagaant6  ‘'road  nil  ‘'aourca  cook  ‘'daat  nil 
‘'load-abipawnt  nawaprlnt 
'unload-ahlpaant  nil 
'trip  trlp2))) 

;  trip  3: 
naw  (trip 

( (trip  'naaa  trlp3  'flrat-aagaant  <al>) 

(aagaant  <al>  'naaa  aagaantl  'road  i70b  'aourea  Indy  'daat  yala 
'load-ahlpaant  nil 
'unload-ahlpnant  nil 
'trip  trlp3 
'naxt-aagaant  <a2>) 

(aagaant  <a2>  'naaa  aagaant2  'road  u41a  'aourea  yala  'daat  attlca 
'load-ahlpaant  nil 
‘'unload-ahlpaant  till 
'trip  trlp3))) 
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:o*w  (road 

((road  ^naaa  u30  ^grada  aaooadazy  ^laagth  70.0)) 

( (road  *na—  ia31a  ^grada  aaoondaxy  ^langth  70.0)) 

((road  •^niai  u31b  ^grada  prlaaxy  ^laagth  40.0)) 

((road  ^naoa  174  '‘grtdm  prlaar;  ^langtb  60.0)) 

((road  *naaa  'tt41a  '^grada  saooadazy  *langth  20.0)) 

((road  *na»a  180b  '^grada  primary  ^langth  90.0)) 

((road  ^naaa  iSOa  ^grada  primary  ^langtb  100.0)) 

((road  '^nama  170b  '^grada  primary  ^langtb  90.0)) 

((road  ^naaw  u41a  ^grada  aacondary  '^langtb  90.0)))) 

;;  antallaanta  that,  ancada  marlmna  apaada  for  varloua  road  gradaa, 

;;  glvan  tba  waatbar.  tlia  apaada  augmant  tba  corraaponding  road 
;;  objacta. 

antallmaata  for  fair  axMl  anow  ara  mlaalng,  but  aran't  naoaaaary 
for  tba  glvan  taak. 

(augmant  a*top-apaca*apaad-whan-ralny-on-prlBmLry 
:apaca  top-apaoa 

:vban  ((top-atata  ^aatbar  rain  ^road  <r>)) 

:wbat  (:nona  road  <r>) 

:no«  (apaad  55) 

:wban  ((road  <r>  ^grada  primary))) 

(augmant  a*top-apaoa*apaad-«ban-ralny-on-aacondary 
lapaca  top-apaoa 

:wban  ((top-atata  '^aatbar  rain  ^road  <r>) ) 
iwbat  (:nona  road  <r>) 

:naw  (apaad  50) 

:wban  ((road  <r>  ^grada  aacondary))) 

(augmant  a*tep-apaoa*apaad-«ban-ralny-on-tartlary 
:apaea  top-apaoa 

:«ban  ((top-atata  ^aatbar  rain  ^road  <r>) ) 

:«bat  (:nona  road  '<r>) 

:naw  (apaad  35) 

:wban  ((road  <r>  ^grada  tartlary) ) ) 

;  onca  tba  apaada  ara  ooagiutad,  tba  tlma  to  travaraa  aaeb  road  can  be 
;  coi^tod,  glvan  tba  langtb.  tba  tlmaa  alao  augment  tba  road 
; ;  object . 

(augmant  a*top-apaea*tima-froa-lengtb-aad-apaed 
:apaca  top-apaoa 
:wban  ((atata  ^road  <r>) 

(road  <r>  ^langtb  <1>  ^ apaad  <a>) ) 

:«bat  (:none  road  <r>) 

:ne«  (tlma  (compute  <1>  /  <a>) ) ) 

;;  propoae  doing  tba  acbadullng  taalc; 

(propoae-taak-operator  pto*taak 
:op  do-taak) 


tba  tMlL  Bpaea 


;  applies  tb«  •obadula  op*r*tor  froa  tha  top-ap«ea,  by  trying  various 
;;  asslgnasnts  of  trucks  and  drlvara  to  trips. 

(proposo-spaoo  ps*task 

: function  (apply  operator  do-task) 

:spaa*  task) 

(proposo-initial-stata  pla*task 

: space  task 

;  create  a  set  each  of  the  available  drivers  and  trucks  and  the 
;  trips  that  have  to  bo  covered,  wo' 11  i^date  this  set  as 
;;  assignaants  are  aade  (slaalate-trlp*ao*trlp-suceeeds) . 

:copy  (driver  truck  trip) 

;;  initialise  the  current -sehadule.  use  a  daasqr  siaulato-trip 
;  operator,  so  that  the  various  conditions  that  test  the  name  of 
;;  the  last  aasijnasnt  on  the  current -schedule  for  chunking  purposes 
;  will  work  without  a  special  case  for  the  eopty  list . 

note:  below,  'list"  is  a  data  aacro.  this  clause  creates  a 
list  whose  car  is  the  rliieay  operator,  the  syntax  used  is  the 
;;  third  fora  of  kCIZOM-SSBC  (see  the  X&Qli  manual,  p.  52)  . 

:  new  ( (^current-schedule  (list  <i1iiiwiy>) ) 

(operator  <duaaqr>  ^nsme  aiailate-trlp  ^trip  <dumay-trlp>) 

(trip  <daaBy-trip>  ^naam  dummy) ) ) 
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; ;  g«Mrat«  aa  aaslguBant  (a  <drlvar,  truck,  trip>  tupla) ,  and  propoaa 
;  slanilatlng  tta*  trip. 

tha  eonditloaa  of  tba  oparator  proposal  gwnarata  tba  aaslgnaiants 
that  mmbody  tba  laaMdiata  eonatraints.  Ilka  tba  truck  and  tba 
drlvar  balng  in  tba  first  city  of  tba  trip,  tbaaa  constraints 
axa  easy  to  tast,  givan  tba  struetura  of  tba  information  on 
tba  top  stata. 

(proposa-oparator  task*po*slaBilata-trlp 

:apaoa  task 

:wban  (;;  bind  a  drlvar,  truck,  and  city: 

(atata  ^drlvar  <drlvar>  ^truck  <truck>  ^trip  <trip>) 

; ;  constrain  tba  drlvar  and  truck  to  ba  in  tba  aaaa  city: 

(top-stata  ^clty  <city>) 

(city  <clty>  *nama  <elty-nama>  ^ruck  <truck-oama>  '^drlvar  <driver-naine>) 
(truck  <truc30  *nama  <truck-nama>) 

(trip  <trip>  *nama  <trlp-nama>  ^first-aagaant  <sagmoat>) 

(sagsmnt  <aagmant>  ^souroa  <clty-naaa>) 

; ;  constrain  tba  drlvar  to  ba  lioansad  to  driva  tba  truck : 

(top-stata  ^lloansa  <liaansa  >) 

(drlvar  <drivar>  '^naaa  <drlvar-naaw>) 

(truck  <truck>  '^typa  <truck-typa>) 

(lloansa  <llcansa>  ^truck-typa  <truck-typa>  '^holdar  <drlvar-naaa>) ) 

;  op  (slaulata-trlp  ^drlvar  <drlvar>  ^truck  <truck>  '^trip  <trip>) ) 

; ;  slmulata-trlp  is  appliad  in  a  subgoal,  by  tba  aianilata-trlp  spaca. 

;  it  succaads  if  no  local  constraints  ara  violatad,  such  as  rasourcas 
;;  going  nagativa.  tba  tarmlnatlon  conditions  ara  in  tba  naxt  two  TCa. 

seta:  tba  slmulata-trip  oparator  itsalf  is  as  an  aasy  way  to 
raprasant  an  assignaant,  so  va  build  tba  acbadula  by  adding 
slaulata-trlp  oparaters  to  a  list,  callad  ^currant-scbadola . 

;  siaulata-trip  succaads  whan  tha  slaulata-trlp  oparator  itsalf  has 
;  baan  addad  to  tba  currant  scbadula  {by  tba  subgoal) .  tarainata  the 
;;  oparator  whan  this  happans: 

(apply-oparator  task*ao*slaulate-trlp*trip-succaadad 

: spaca  task 

:op  slaulata-trlp 

: tamlnata-wban  ((stata  ''currant-scbadula  <scbadula>)  ;  bind  "cons  call" 

(oparator  (car  <schadula>)  ^trip  <trip>)  ;  bind  its  "car" 
(oparator  ^trlp  <trlp>) ) ) 

;  tarmlnata  siaailata-trip  if  tba  subgoal  signals  an  local  constraint 
;;  violation,  local -constraint-fallad  is  dataetad  as  a  fallura 
;  condition  by  oo*task  (balow) . 

nota:  aultipla  :tarminata-vban  clausas  in  ona  XC  ara  conjunctiva, 
so  wo  naad  two  apply-oparator  TCs  to  raprasant  tba  two  conditions . 

(apply-oparator  task* ao* slaulata-trlp* constraint -violation 

: spaca  task 

:op  slmolato-trip 

: tarmlnata-wban  ((stata  ^local-constraint-failad))) 


;;  wbao  th«r«  u*  no  trip*  loft,  wo'xo  dono: 


(propoM-opnrator  tn«k*po*»cbodulo-oueoood« 

:spaon  tank 

:«ban  ((ntnt*  '^comnt-ndbndoln  <lnnt-nnnlgn— nt>  -  ^trlp)) 

:op  *  IT  fifl  ntn-nnhofhil  •  <lnnt-nnnignannt> 

'^rnnnon  no-trlpa-l*£t) 

;  bind  tbn  nine  of  tba  pxnvloun  trip,  this  enunnn  tbn  March 
;;  control  chunka  that  arlM  froa  dataetixtg  tba  aneoasa  of  thia  trip 
;  to  Includa  tba  pravloua  trip  naaa  in  tbalr  condltlona : 

iwhan  ( (oparator  <car  <laat-aaalgoaant>)  ^trlp  <laBt-trlp>) ) 

) 


;  wa  know  that  tba  currant  aebadnla  la  oo^plata,  ao  put  that 
;;  Infotaatlon  on  tba  atata.  thla  algnala  auccaaa  (via  ao^taak,  balow) . 

(apply-oparator  taak*ao*aehadula-auooaada 

:apaoa  taak 

:op  ( aebadnla- aneoaada  ^eoaplata-aebadula  <acbadula>) 

(adit  :wbat  atata 

:oaw  (co^plata-aebadula  <Bcbadula>) ) ) 

;  ba  praparad  for  a  global  eonatraint  violation.  propoM  an  oparator 
;;  that  rapraaanta  auch  a  violation  oooorrlng,  than  aaka  it  worat.  if 
;  at  aoaa  point  tbara  ara  trlpa  laft  bat  no  aaalgniaanta  for  than, 

;  than  oaithar  alanlata-trlp  nor  aohadul a-auccaada  will  ba  proposad, 

;;  ao  global-conatralnt-fallad  will  ba  aalaetad  by  dafault. 

nota:  thla  llluatrataa  a  ganaral  prograanlng  taehnlqua,  which  la 
to  UM  tba  aalaetlon  of  an  oparator  with  a  worat  prafarancaa  to 
liqplleltly  rapraaant  tba  knowladga  that  aach  of  a  Mt  of  optlona 
baa  baan  axbauatad.  howavar,  bacauM  auch  a  Mlaotlon  la  not 
baaad  on  any  axpllcit  knowladga  that  can  ba  baektraoad  throu^. 

;;  chunka  laamad  froa  raaulta  of  auch  oparatora  can  ba  vaatly 
;;  ovarganaral.  ona  aolutlon  la  to  not  laam  from  auch  raaulta  (aaa 
; ;  ao*taak) . 

(propoM-oparator  taak*po*global -eonatraint -failed 

:  apace  taak 

:whan  ((atata  ^trlp) ) 

:op  (global-conatraint-f ailed  ^raaaon  tripa-lavel-over) ) 

(prefer  taak*p*global-conBtraiat-failed*worat 
: apace  taak 

:op  global-conatralnt-fallad 
: value  worat) 

(apply-pparator  taak*ao*global-conatralnt-fallad 

: apace  tank 

:ep  (global-conatralnt-fallad  ''raaaon  <roaaon>) 

(adit  :what  atata 

:naw  (global-conatralnt-fallad  <reaaon>) ) ) 
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;  algnal  tMk  •ueoasa  and  local  and  global  falluraa .  thla  TC  eauaaa 
;;  a  lookahaad  Inatanoa  of  tbo  taak  apaoa  to  axlt,  caualng  another 
;  alaulato-trlp  altoxnatlvo  to  bo  triad  out . 

(ovaluato-objoct  oo*taak 
: apace  taak 
:what  lookahead-atate 

;  aucoeed  when  there' a  a  cooplete  acbedule  (generated  by 
;  taak*ao*acbedule-ancceeda) .  Soar' a  default  prodnetiona 
;;  propagate  aucceaa  to  the  top  of  the  lookabead-aeareh  atack, 

;  cauaing  Soar  to  learn  aearch-control  ebunka  that  reaeober  the 
;  aequance  of  aianlate-trlp  operatora . 

; syobollc-valuo  (aoccaaa 

:when  ( (atate  ^coaplete-aebedule) ) ) 

;  backtrack  If  there' a  been  a  global -conatralnt-failed.  the  novalue 
;;  evaluation  tella  Soar  not  to  learn  anything.  «e  don't  knov 
;  which  aaaignaant  eauaed  the  problae  or  y/bj,  ao  there'  a  nothing 
;  uaeful  to  learn  (aee  note  at  taak*po*global-eonatralnt-failed) . 

: ayabolic-value  (novalue 

:whao  ((atate  '^global -conatraint-failed) ) ) 

;  backtrack  (and  learn  that  the  laat  aaaignaant  waa  a  bad  choice) 

;;  if  there' a  a  local-conatraint-falled  (created  fay 
;  taak*ao*alaulate-trip*conatralnt-vlolatlon) . 

: ayabolic-value  (failure 

:wbeo  ((atate  ^local-conatraint-falled)))) 

;  goal-teat  knowledge,  to  detect  auecoaa  and  failure  when  not  in 
;;  lookahead  aearch.  replicatea  the  knowledge  in  eo*taak. 

(goal-teat-group  gtg*taak* aucceaa 
: apace  taak 

: group-type  auooeaa 

:when  ((auperapaee  ^naaa  top-apaee) 

(atate  *cc«ylete-achedule) ) ) 

(goal-teat-group  gtg*taak*failure 
: apace  taak 

: group-type  failure 

:wben  ((ar^rapace  ‘'naaa  top-apace)) 

;;  dlajunetlve  failure  teat. 

:teat  (failure 

:when  ((atate  ^global-conatraint-f ailed) ) ) 

:teat  (failure 

:whan  ( (atate  '^local-conatraint-falled) ) ) ) 

;;  return  the  coa^lete  aehedule  to  the  top  atate. 

note:  with  thia  TC,  Soar  bullda  a  chunk  that  i^liea  the  taak 
operator  (propoaed  by  pto*taak)  after  learning,  without  thla  TC, 
no  chunk  will  be  learned  for  the  taak  operator  (CkQL'  a  runtiae 
airport  autceatlcally  tormlnatea  the  taak  operator  wben  a 
anoceaaful  or  failed  atate  la  reached  in  the  apace  that  appliea 
it) ;  after  learning,  the  taak  operator  will  ia^aae,  and  chunks 
learned  during  lookahead  aearch  will  guide  Soar  directly  to  a 
aolution  in  the  aubspace  without  further  la^aaaea. 

(reault-auperatate  ra*task*aucceaa 
: space  taak 
:gro«9-typa  auccesa 
(edit  :what  auperatate 

:when  ((atate  '^ccsylete-achedul e  <achedule>)) 

:new  (coaplete-scbedule  <achedule>) ) ) 


;  th*  slaaal«t«-trlp  apac* 


;  appllaa  tba  alaoalata-trip  oparator  f roa  tba  aehadula  apaca . 

;;  if  tba  alaailatlon  aueeaada,  trlp-auooaada  puahaa  tba  aoparoparator 
;  onto  tba  currant-acbadula  Hat  on  tba  ai^aratata.  If  it  faila  (dua 
;  to  a  local  oonatiraint  failuza) .  looal-aonatralat-fallad  poabaa  tbla 
;  aaalgnaant  onto  tba  corrant  aebadula,  and  zatuzna  tbat  aa  tba  valua 
;  of  ^local-conatralnt-fallod. 

(propoaa-apaea  pa*alaBilata-trlp 

: function  (apply  operator  aiaulato-trip) 

:apaoa  aiaaalata-trip) 

;  copy  tba  trip/truck/drivar  aat  down  froa  tba  ai:paratata,  for 
;;  convanianco.  aatabliab  tba  volnM  and  vaight-llait  of  tba  truck, 

;  and  tba  tiaa  tba  driver  can  drive,  aa  initial  valuaa  of 

;;  tboaa  raaouroaa. 

(propoaa-lnitial-atata  pia*alaulata-trip 
: apace  alaulata-trlp 

:wban  ( (auparoparator  -^truck  <truek>  '^trip  <trip>  ^driver  <drivar>) 

(driver  <drivar>  ^drlva-tlaa  <drlva-tlaa>) 

(truck  <truc]c>  ^oluaa  <voluaa>  '^valgbt-llmit  <walght-llmlt>) ) 

:na«  (driver  <driver>) 

:naw  (truck  <truek>) 

:naw  (trip  <trlp>) 

:naw  (Inltlal-raaourcea  ( (raaourcaa  ^currant -time  <drlva-tlnB> 

^eurrant-voluBW  <voluaie> 

'^currant -weight  <weigfat-llalt>) ) ) ) 

;;  aiaailata  tba  driver  driving  tba  truck  over  each  aagaant  of  the  trip 
;;  in  turn,  after  aa<dt  aagnent,  the  aiaulata-aagBant  operator  updataa 
;;  the  raaouroaa. 

(propoaa-oparator  aiaB2lata-trlp*po*alaBilata-aagRMat 
: apace  alnulata-trip 

: aalact-onoa-only  ;  ao  firat  aagaant  ia  only  dona  once 

;;  propoaa  doing  tba  firat  aagaant,  uaing  tba  initial  raaourcaa: 

:op  (alaulata-aegaant  ^aagaant  <firat>  ‘'raaouroaa  (Hat  <rea>) 

:wban  ( (atata  ^trlp  <trlp>  ‘'initial -raaourcaa  <ras>) 
(trip  <trlp>  ‘'flrat-aagaant  <firat>) ) ) 

;  at  each  aagaant,  propoaa  doing  tba  next  one,  uaing  tba  currant 
;  raaourcaa : 

:op  (alaailata-aagaant  ^aagaant  <nazt>  ‘'raaourcaa  <raa> 

:wban  ((operator  ^aa^ant  <carrant>) 

(aagaant  <cnrmnt>  ‘'next -aagaant  <nnxt>) 
(atata  ‘'currant-raaourcaa  <rea>)))) 

;  operator  aiaulata-aagnant  ia  applied  ix.  a  aubgoal,  in  tba 
;;  aiaulata-aagnant  apaoa.  tba  apace  ratuma  a  raaonrea  object, 

;  puahing  it  onto  tba  Hat  ‘'currant-raaourcaa  (creating  tba  Hat  if 
;  it  baa  to) .  tba  raaourea  object  apaclfiaa  tba  aagaant  it  waa 
;;  conatructad  in,  allowing  ua  to  teat  wa  can  taminata  tba  operator. 

;;  tba  raaourea  object  alao  apaclfiaa  'failed  true  if  any  raaourea 
;;  (voluna,  walg^t-liadt,  tine)  ran  out  during  tba  aagawnt,  or  if 
;  other  oonatralnta  ware  violated  (aaa 
;  alaulata-aagnant*ao*eoog)uta-raaouroaa)  . 

(apply-oparator  ainulata-trip*ao*alaulate-aegBMnt 
: apace  aioulata-trip 

:op  (aiaulata-aagnant  ‘'aagawnt  <aagnant>) 
itamlnata-wban  ((atata  ‘'currant-raaonroaa  <raa>) 

(raaourcaa  (ear  <raa>)  ‘'aagaant  <aagnaat-nane>) 

(aagnant  <aagBent>  ‘'naaa  <aagnant-naaw>) ) ) 
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;;  b«  prap*r*d  to  daolax*  tba  •laulatlon  auooaaaful.  propoa* 

;;  trip- auooaada  and  aaJca  it  worat,  ao  that  it' a  aalactad  only 
;;  whan  thaza  aza  no  aagnanta  laft  to  drlva  ovaz. 

»  $ 

in  tha  pzopoaal,  ezaata  a  naw  Hat  whoaa  oaz  la  tha  ouzzant 
aaaijnnant,  and  whoaa  odz  ia  tha  axlatiag  aohadnla  fzoa  tha 
Btpazapaoa.  naira  thia  naw  Hat  an  ai  ijinaiir  to  tha  opazator, 
whloh  can  zatom  it  dlzaotly  to  tha  ar^azatata  (baeenlng  tha 
i^pdatad  aehadnla) . 

(propeaa-opazatoz  aiaKilata-tzlp*po*trlp-aueoaada 
:apaca  aiaailata-tzlp 

;;  bind  tha  av^zopazatoz,  and  tha  eozzant  aehadnla: 

:wban  ((aupazatata  *onzzant-arhadula  <laat-aaalgnaant>) 

(aupazgoal  ^opazatoz  <ao>) ) 

;  put  tha  updatad  aehadnla  on  tha  opazator,  ao  that  tha  opazator 
;  ^pHeatlon  TC  can  ratnm  tha  npdatad  aohadula  to  tha 
; ;  aupazatata.  (updating  and  ratumlng  zaqnlzaa  two  atapa,  ao 
;  doing  tha  updata  haza  allowa  tha  apply-oparator  TC  to  ratuzn 
; ;  tha  raault . ) 

:  op  (tzlp-aueeaada  ^aaalgnmant  (eona  <ao>  <laat-aaaigintant>) ) ) 

(prafaz  alaailata-tzlp*p*trip-aueeaoda*worat 
:apaea  alnulata-trlp 
:op  tzlp-aueeaada 
:valua  worat) 

;  11  tha  aaalgnaant  aueeaada,  ratum  tha  naw  aehadnla  to  tha 
;;  aupareontaxt,  and  updata  tha  aupazatata' a  trip/truek/drlvar  aata. 

(apply-oparator  ainulata-trlp*ao*trlp-aueooada 
:apaea  aimlata-trlp 
:op  (tzlp-aueeaada  ^aaalgnaant  <naw>) 

;;  bind  tha  Information  wa  naad  to  updata  tha  trip/tmek/dzlvar  aata: 

:wban  ((opazator  (oar  <now>) 

“trip  <trip>  “drivar  <dzlwar>  “trucic  <truck>) ) 


;;  tha  ohunka  that  updata  tha  aehadula  In  tha  anpazoontazt  will 
;;  loop  unlaaa  wa'ra  earaful.  baeauaa  ona  rajacta  tha 

;  currant  haad  of  tha  Hat,  and  a  aaeond  adda  tha  naw  haad. 

;  wa  can  prawant  looping  by  nalririg  tha  ohunita  apaclfie  to  tha 
;  currant  haad  of  tha  Hat .  <currant-trlp-naaw>  matebaa  a 
;;  conatant,  and  that  conatant  will  appaar  In  tha  chunk: 

:whan  ((aupazatata  “eurrant-aehadula  <eozzant>) 

(opazator  (oar  <currant>)  “trip  <oarzont-tclp>) 

(trip  <eozrant-tzlp>  “nama  <eurrant-trlp-naaa>) ) 

(adit  :wbat  aupazatata 

;;  puah  tha  naw  trip  onto  tha  haad  of  tha  aehadnla  Hat: 
:raplaoa  (currant -aehadnla  <naw>) 

;;  trip  la  takan  cara  of: 

: ramowa  (trip  <trip>) 

;  dzivar  and  truck  aza  uaad  up: 

: raaowa  (dzivaz  <dzlvar>) 

:  ramowa  (truck  <tmek>) } ) 


;  tta*  alanlatloo  f&lla  if  a  raaouroa  want  oagativa .  tba  valua  of 
;  ^raason  la  prlntad  in  tba  traoa  (aaa  traoa-attributaa) . 

(propoaa-oparator  alaulata-trlp*pe*loeal-eonatralnt-fallad 
lapaca  aimlata-trlp 

;;  aa  in  aiMilata-taak*po*trlp-aueoaada: 

:wban  ( (at^axgoal  Separator  <ao>) 

(ai^ratata  *currant-aofaadula  <laBt-aaalgnawnt>) } 

:op  (loeal-conatralnt-fallad  ^fallad-aaalgnaant  (cona  <ao>  <laat-aaalgninent>) 

'^raaaon  <raaaon>) 


;;  failuxa  oonditlen: 

:whan  ((atata  ^euzzant-xaaouroaa  <raa>) 

(raaouroaa  (car  <xaa>)  ^fallad  troa  '^raaaon  <raaaon>) ) ) 


;;  if  local-eonatralnt-fallad  la  propoaad,  aalact  It  ioatadiataly . 

(prafax  alaailata-trlp*p*local-conatralnt-£allad*raqalra 
:apaca  slaulata-trlp 
:op  local-eonatxalnt-fallad 
: valua  xaqulra) 

;  If  tba  alBolatlon  falla,  ratuxn  local-conatraint-fallad  to  tba 
;;  aupareontazt .  don't  botbax  updating  tba  trlp/txuck/dxlvax  aata, 

;  baeauaa  tba  aiqpaxcontazt  will  algnal  a  failuxa  condition  and  axlt 

(apply-opaxatox  ala>ilata-txlp*ao*local-eonatralnt-fallad 
:apaea  aloulata-txlp 

;op  (local-eonatxalnt-fallad  ^failad-aaalgninont  <acbadula>) 

;;  to  pxavant  ebunka  that  will  loop  in  otbax  eaaaa  (aa  In 
; ;  alMolata-trip* ao*t rip- aueeaada ) : 

:wban  ( (auparatata  •^eurrant-achadala  <earrant>) 

(oparator  (car  <eurrant>)  '^trip  <euxxattt-txlp>) 

(trip  <eurrant-txlp>  ^nana  <currant-trlp-naae>) ) 

; ;  failuxa  taxalnatlon  condition  on  tba  auparopaxator: 

(adit  :wbat  auparatata 

:naw  (local-eonatxalnt-fallad  <acbadala>) ) ) 
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th«  alnalat«-«*gBant  apac* 


;;  appllaa  tfaa  alnulata-aagmant  operator  from  tha  alaailata-trlp  apace. 

;  the  apace  auoceeda  if  the  aegment  can  be  coi^leted  with  tbe  voliiaw 
;  and  wel^t  currently  available  in  tbe  truck,  and  if  the  time  left 
;  tha  driver  la  enough  to  cover  loading,  driving,  and  unloading,  it 
; ;  faila  othervlae.  the  return  value  la  a  raaouroea  object,  puabed 
; ;  onto  the  ^current-reaources  liat  of  the  auperatate.  the  Hat  la 
; ;  created  if  it  lan't  there,  if  the  aegeent  faila,  the  raaourcea 
;  object  la  flagged  with  ^failed  true  and  a  ^reaaon. 

;  the  coBputa-reaourcaa  <qperator  repreaenta  tha  oddball  conat.aint 
;;  u,<at  white  can't  drive  throu^  lllinola. 

(prrvoae-apace  pa^almulate-aegatant 

:  function  (apply  operator  alaailata-aognant) 

: apace  ainulate-aegnent) 

;  the  airguBMnta  to  the  auperoperator  are  the  aegitent  to  do  and  tha 
;;  reaourcea  to  do  it  with.  unx>ack  the  raaourcea  ao  we  can  okodlfy 
;;  them  locally,  unpack  the  aegment  for  convenience. 

(pr'>'n  ie-inltl.:l-atate  pia^aimulate-aagmant 
:-pace  alenlate-aegment 

;when  ((auperoperator  ^aegment  <aeg>  ^raaourcea  <rea>) 

(raaourcea  (car  <rea>) 

'^current -volume  <voluma>  ^currant-time  <tlae>  ^current-weight  <weight>) ) 
:new  (aegment  <aag>) 

:  new  ( current -volinae  <volume>) 

;naw  (current -time  <time>) 

:new  (current-weight  <weight>} ) 

: ;  when  tje  ^ahipownt-naam  of  a  aeg.aent  la  non-nil,  them  propoae  loading 
; ;  that  ahlpaent : 

(propoae-operator  aiaulate-aegment*po*load 
:  apace  aimulate-aegiirant 

: aelect-onoe-only  ;  load  only  once  per  aegment 

:op  (load  ^ahlpmant-naam  <ahlpment -naaa>  '^oluam  <voluna>  ^load-time  <load-time> 

‘Sral^t  <wolgbt>) 

:when  ((top-atate  ^ahlpaent  <ah>) 

(ahlpaent  <ah>  ^name  <ahlpaant-oaae>  height  <wei^t> 

^oluaa  <voluna>  ^load-tlaw  <load-time>) ) 

:when  ((atate  ^aegment  <aeg>) 

(aegment  <aeg>  -  ''load-ahlpeont  nil  ''load-ahipoent  <ahipoent-name>) ) ) 

;;  load  the  ahlpaent  by  adjuatlng  tbe  reaourcea: 

(apply-operator  aiaulato-rGgment*ao*load 
:  apace  aiaulate-aegment 

:op  (load  'height  <woi^t>  ^olvma  <voloaa>  ''load-time  <load-tlaa>) 

:when  ((atate  ^current-weight  <current-weigfat>  ^current -volume  <current-volume> 
^current-tlam  <current-tlme>) ) 

(edit  :what  atate 

:reylaae  (current -weight  :by  (compute  <current-weigfat>  -  <welgbt>) ) 

: replace  (current -volume  :by  (coaputo  <curreot-volume>  -  <volumr>) ) 

: replace  (current-time  :by  (compute  <current-time>  -  <load-time>) ) ) ) 


;  •lad.larly  for  unloading,  fox  corroetnoso,  loading  baa  to  ba  dono  bofore 
;  unloading  (sa*  tba  axplanatlon  abova  alaalata-sagBante*load*unload*batter) . 

(propoaa-oparator  slaBilata-aagmant*po*unload 
:spaaa  alaialata-sagmant 

: salact-onca-only  ;  unload  only  onca  par  sagment 

:op  (unload  ^shlpnant-naaa  <ahlpMnt-naaa>  ^oluaa  <voluaM> 

^'luload-tljBa  <unload-tlaa>  ^algbt  <italgfat>) 

:wbon  ( (top-stata  ^sblpoant  <sb>) 

(sblpoiant  <sh>  *naiiia  <shlpaMnt-naaa>  ^mlght  <walgbt> 

^oluaa  <voluma>  '^unload-tlM  <unload-tlM>) ) 

:wban  ((stata  ^sagaant  <aag>) 

(sagaant  <sag>  -  '^inload-ahlpaant  nil  ‘^unload-shlpoant  <BhlF«aBnt-naiDa>) ) ) 

(apply~oparator  alaulata-aagnant*ao*unload 
:8paaa  alaulata- aagmant 

:op  (uitload  Haight  <iralght>  '^oluaa  <to1um>  'iinload-tlaa  <uaload-tlaie>) 

:whan  ( (stata  ^eaxrant-walght  <eurrant-iralght>  ^ourrant-voluas  <currant-voluiiie> 
‘'currant -tlaa  <currant-tiaa>) ) 

(adit  :what  stata 

:raplaca  ( currant -walght  :by  (cosputa  <curxant-walght>  +  <wai^t>) ) 
:raplaoe  ( currant -volusie  :by  (co^uta  <currant-volus>e>  -f  <voluiDa>) ) 
:raplaae  (currant-tlma  :by  (cosputa  <current-tlaa>  -  <unload-tiaie>) ) ) ) 

; ;  adjust  tba  tloa  rasourca  by  tba  langtb  of  tlma  it  tabes  to  drive 
; ;  tbe  segoant . 

(propose-oparator  slaulata-aagBMnt*po*drlva 
;apaoa  slaulata-sagment 

; salact-onca-only  ;  drive  only  once  per  segment 

:op  (drive  ‘'time  <tlma>) 

:wban  ((top-stata  *road  <road>) 

(stata  ^segment  <sag>  ‘'road  <road-nama>) 

(segment  <seg>  -  ^dast  nil) 

(road  <road>  '‘nasw  <road-naaia>  ‘'tlsw  <tiaM>) ) )  ;  entailed 

(apply-oparator  simulate- segaiant*ao*drlve 
:  space  sloulata-segniant 
:op  (drive  ^tlma  <tlas>) 

:«ben  ((state  ^currant-tlsa  <currant-tlaie>) ) 

(adit  ;vbat  state 

: replace  (currant-tlma  :by 

(cosqputa  <carrant-tlma>  -  <tlme>) ) ) ) 

; ;  ba  prepared  to  update  resources  whan  no  aura  rasourca-consuailng 
;;  actions  raamln. 

(propose-oparator  slmalata-soga>Bnt*po*coaputa-resourcas 
: space  slmulata-sagaunt 
:op  coapute-rasouroas) 

(prefer  siaBilata-sagmant*p*coiaputa-reBouroas 
:  space  simulate- aagawnt 
:op  coaputa-xasourcas 
: value  worst) 

;  update  resources  by  building  a  new  resource  object  on  tba  current  stata . 

(apply-oparator  slmulata-sagmant*ao*coaputa-rasoureos 
:  space  simulate- sagaunt 
:op  coaputa-rasourcas 

;;  bind  Inforamtlon  ragulrad  to  build  the  resource  object: 

;wban  ( (state  'curran*’ -weight  <walght> 

^currant -volume  <voluma> 

‘'currant-tlma  <tlma> 

'sagawnt  <sagmant>) ) 
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; ;  ezaata  a  nmt  r«so\iroa  ob  j«ct  and  attach  It  to  tha  enxront  atata : 
:bind  <raaoaraas> 

(adit  :«bat  atata 

:na«  (raaourcaa  <raaourcaa>) ) 

;  add  tha  updatad  raaourcaa  to  tha  ob jaet : 

(edit  :what  (:nona  raaourcaa  <raaourcaa>) 

;;  add  tha  aagmant,  ao  that  whan  tha  raaourca  object  la  ratumad 
;  to  the  av^r atata,  tha  auparoparator  will  be  able  to  tall 
;;  whan  to  tarmlnata  (ita  aagaant  paraaatar  will  be  tha  aama  aa 
;  tha  aagmant  of  tha  head  of  the  currant-raaourcaa  Hat) : 

;naw  (aagmant  < aagmant -nama> 

:whan  ((aagmant  <aagmant>  *nama  <aagaant-nama>) ) ) 

;  add  tha  trip,  to  make  aura  that  the  aagmant  and  trip  atay 
;  tied  together  In  tha  ehunka  that  tq>data  tha  raaourcaa . 

; ;  If  wa  don't  do  thla,  the  ehunka  could  tranafar 
;  Incorrectly  to  tha  aama  aagmant  of  another  trip. 

:  new  (trip  <trlp-naaia> 

:whan  ((aagmant  <aagment>  '^trip  <trlp-name>) ) ) 

;  add  tha  raaourcaa : 

:naw  (currant -weight  <waight>) 

;naw  (current -volume  <volume>) 

:naw  (currant-tlam  <tima>} ) 

; ;  failure  condltlona  ariaa  whan  a  raaourca  haa  fallen  below  zero: 

(adit  :what  (:nona  raaourcaa  <raaouroaa>) 

:naw  (failed  true) 

:naw  (reaaon  weight -limit -axeaadad) 

:whan  ((atata  ^currant-weight  <  0.0))) 

(adit  :what  (:nona  reaoiircaa  <raaourcaa>) 

:naw  (failed  true) 

;new  (reaaon  volume-axcaadad) 

:whan  ((atata  ^current-volume  <  0.0))) 

(edit  :what  (:nona  raaourcaa  <raaourcea>) 

:naw  (failed  true) 

;naw  (reaaon  time-exceeded) 

'.whan  ((atata  ^currant -time  <  0.0))) 

;  thla  la  tha  failure  condition  in  which  white  ia  wanted  for  a 
;;  crime  in  illlnoia.  tha  chunka  built  ara  more  apacific  than 
;  they  need  to  ba,  bacauaa  they  include  all  aorta  of  other 
;  raaourcaa  that  have  nothing  to  do  with  failure  condition . 

(adit  :what  (:nona  raaourcaa  <raaourcaa>) 

;naw  (failed  true) 

;naw  (reaaon  whitaa-a-crlminal-in-illlnoia) 

;whon  ( (top-atata  ^clty  <clty>) 

(city  <clty>  *nime  <city-name>  ''atata  lllinola) 

(atata  ^aagmant  <aagment>) 

(auparatata  ''driver  <drlvar>) 

(driver  <drlvar>  ''name  white) ) ) 


) 


;  and  of  aiaulata-aagment*ao*coBg>uta-roaoureoa 


;;  wh*n  tb*  xasoure**  object  la  built,  propos*  raturnlng  It: 

(propoaa-oparator  aiBulata-s«9aant*po*updat*-r*aouxeaa 
:apaoa  alilaf  -  aaqmant 

(updata-Msoureaa  ^rasouroas  <raa>) 

:«ban  ( (atata  ^raaoureaa  <raa>) ) ) 

;;  puab  tba  raaourca  objaot  onto  tba  Hat  ■>!  currant  raaoureaa.  If 
;;  tba  Hat  baa  not  baan  eraatad  yat,  craata  It. 

(apply-oparator  aiaulata-aaqxMnt*ao*updata-raaourcaa 
:apaoa  aimlata-aagoMnt 
:op  (vpdata-araaoureaa  ^raaoureaa  <raa>) 

;  bind  tba  naaa  of  tba  currant  aa^nant  (aaa  balow) : 

:ifban  ((atata  ^aa^ant  raagmant-TJ 

(aagsHnt  <aa9Bant>  *nai>a  <aa9Bant-ttaaia>} } 

(adit  :wbat  ai^ratata 

;;  If  tba  currant-raaoureaa  Hat  axlata  alraady: 

: raplaca  (currant -raaoureaa 

(cona  <raa>  <raa-Hat>) 

:whan  ((auparatata  ^currant-raaourcaa  <raB-Hat>) 

; ;  pxavant  looping  ebunka : 

(raaoureaa  (car  <raa-Hat>)  -  ‘^aagnent  <aagakaz.t-naaie>) ) ) 

;;  If  tbara'a  no  currant-raaoureaa  Hat: 

:naw  (currant-raaoureaa  (Hat  <raa>) 

:wban  (  (at^ratata  -  ^currant-raaozircaa) ) ) ) ) 

;;  for  a  glvan  aagaant,  ^load-ablpaaant  non-nil  aaana  load  at  tba  aoxirce 
;;  city,  and  ''nnload-ablpMnt  non-nil  BMana  unload  at  tba  deatinatlon. 

;;  ao  for  eorractnaaa  wrt  walgbt-lialt  and  ▼olarna,  loada  bava  to  come  first. 

(coapara  e*load*unload*battar 
:apaea  alaulata-aagawnt 
:opl  load 
:op2  unload 
rralatlon  battar) 

;;  otbar  tban  tbat.  It  doaan't  aiattar  wbat  ordar  raaoureaa  are 
;;  conaumad  in,  but  it  doaan't  burt  to  do  It  in  a  aanaibla  one. 

(conpara  c*load*drlva*better 
:apaea  aioulate-aagmant 
:opl  load 
:op2  drive 
: relation  batter) 

(coa^para  e*drlva*unload*battar 
:apaoe  aiaulata-aagmant 
:opl  drive 
:op2  unload 
: relation  bettor) 
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soar  backs: 


;  tbls  production  roplaoos  a  soar  default  production  that  aonitors 
;;  avaluations  of  lookahasd  operators .  it  prints  tba  id  of  the 
;  operator  copy,  rather  than  the  source  of  that  copy,  this  is  an 
;  iaproveoent,  because  the  copy  shows  up  in  tba  trace,  so  the  id  is 
;  useful  for  reference . 

(sp  default*aonltor*operator*ewaluation 

(goal  <top>  ^object  nil  -'‘‘verbose  false) 

(goal  <g>  '^object  <ag>  ^atate  <a>) 

(state  <s>  ^tried-tied-operator  <obj>) 

(goal  <sg>  '^operator  <so>) 

(operator  <bo>  '‘type  evaluation  ^evaluation  <e>) 

(evaluation  <e>  ^  «  nueerlc-valua  syabolic-value  »  <n>) 

(<class>  <obj>  ^naae  <nane>) 

— > 

(tabstop  <tab>) 

(write2  (crlf)  (tabto  <tab>)  "  Evaluation  of  "  <claas>  '■  '  <obj>  ”  (” 
<naBM>  '*}  is  "  <n>) ) 

; ; ;  and  of  code 
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4.3.  Execution  Trace 

;;  Mod*:  Ind*nt*d-T*xt 

»  t 

;;  Fll*  :  /*fa/ca.ena.*du/ua*r/*lta*nn/t*ql/truc]c/tr*cs.txt 

;  Jkntbor  :  Brlk  Bltmann 

;;  CXMitad  On  :  Ited  Jun  3  20:25:47  1992 

;;  iMt,  Modlflad  By:  Brlk  kltaiann 

;;  Laat  Modlflad  On:  Mad  Jun  3  20:26:34  1992 

; ;  Updat*  Count  :  1 

»  # 

; ;  PORPOSB 

Trae*  of  a  la^laamntatlon  of  tb*  trucking  Taak,  aka  tba 

;;  Shlpoant  Schadullng  Baalatant.  Tb*  aouroa  coda  la  In  truck. taql,  and 
;;  cbunka  producad  from  tbla  traca  ara  In  cbunka.aoar. 

t  0 

;;  TSBIB  OF  COMTEHTS 

;;  Tba  traoa,  followad  by  prlnt-atata  and  taql-atata. 

;;  Copyright  1992,  Camagla  Mallon  Onlvaralty. 

00000000t0f0000f00000000t0000000000000000000000000000*000**0****0*********>*f>' 


Starting  Soars  . . . 

kllagro  CL  3.1.12.2  [DBCatatlon]  (11/19/90) 

Copyright  (C)  1985-1990,  Franz  Znc.,  Barkalay,  Ck,  USA 

Soar  (Varalon  5,  Ralaaaa  2) 

Craatad  Anguat  26th,  1991 

Buga  and  quaatlona  ahould  ]»*  aant  to  Soar-bugaeca.cam.adu 
Tba  currant  bug-llat  may  ba  obtalnad  by  aanding  atall  to 
Soar-bugaeca.oan.adu  wltb  tba  Subjact:  Una  *bug  Hat" 

Tbla  aoftwar*  la  In  tb*  public  domain. 

Tbla  aoftwar*  la  mad*  avallabl*  AS  IS,  and  Camagl*  Mallon 
Unlvaralty  and  tb*  Unlvaralty  of  Michigan  maka  no  warranty 
about  tba  aoftwar*  or  ita  parformanc*. 

Sa*  (aoamawa)  for  nawa. 

;  Loading  /uarO/altmann/.aoar-lnlt.llap. 

;  Loading  /uar/alac/.Soar5/bln/Soar5.1at*at.patcfa*a.llap. 

<cl> 

<cl>  (load  "/uar/adac/. Soars /llb/tagl/load.llap") 

;  Loading  /uar/mlac/.SoarS/llb/taql/load.llap. 

Dlaabllng  aalactad  dafault  production*:  #*#*#•#*#*#*#*#*•#*#*#**#*#* 

Iioadlng  TAQL  aupport  production*: 

*•**»*•**•*******•***•*************»•****»***•***********•*******»•***•*•»*****••*****»* 


TAQL  3.1.4 

Craatad  July  15,  1991 

Bug  raporta  abould  b*  aant  to  Soar-bugaeca.cau.adu. 

Sand  conmanta  on  TAQL  to  Gragg. Toateca.onu. ado  or  Brlk.Altmann6ca.eau.adu. 


t 

<el>  (load  */af */oa . emu . adu/u*ar/a 1 tmann/taql/truck/truck . taql " ) 
;  Loading  /afa/ca. emu. adu/uaar/altmann/taql/truck/tzuck. taql. 


****i  (azclaad  DBFAnLT*MOMIT(»l*OPBItATOR*BVALUATZON) 
t 

<cl>  (uaar-aalact)  ; ;  for  documantatlen 
flrat 

<ol>  (loam  on)  ; ;  turn  laamlng  on 

Laam  atatoa:  on  all-goala  print  traca 
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on 

all -goals 
print 
traoa 
<cl>  (run) 


Laam  status:  on  all-goals  print  traoa 


0  G: 

1  P: 

2  S; 

3  0; 

4  » 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

Build: 

24 

25 

26 

27 

28 

29 

Build: 

Build: 

30 

Build 

Build 

Build 

Build 

Build 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

Build: 

49 

50 

51 


gi 

p4  (top-spaoa) 
s73 

o69  (do-task) 

i>G:  g76  (oparator  no-changa) 

P:  p83  (task) 

S:  sl04 

>->G:  9130  (oparator  tla) 

P:  pl31  (salaetlon) 

S:  sl38 

O:  el43  ( ( (groan)  (cannonball)  (trlp3)  slnlata-trlp)  avaluato-Ob  ject) 
>»>G:  gl71  (oparator  no-chango) 

P:  p83  (task) 

S:  dl81 

O:  el82  ( (groan)  (cannonball)  (trlp3)  slmulata-trlp) 

=>G:  g212  (oparator  no-ehanga) 

P:  p219  (siwlata-trlp) 

S:  a230 

O:  o232  ((sagnantl)  slaulata-sagsient) 

**XS:  g238  (oparator  no-ehanga) 

P:  p245  (slaulata-sagnant) 

S:  s255 

0:  o2S7  (coaputo-roaourcos) 

0:  o272  (updata-rasouroas) 


p277 


p319 

p320 

p323 

p324 

p325 

p326 

p327 


p469 


0:  o278  ((sagBMnt2)  slaulata-sagnsot) 
»>G:  g280  (oparator  no-chango) 

( slaulata-sagaont ) 


P: 

S: 

0: 

O: 


p287 

s297 

o299 

o314 


(coopoto-raaourcas ) 
(updato-rosooroos) 


O:  o235  (trlp-suceoads) 


■>G:  g331  (oparator  tla) 

P:  p332  (salaetlon) 

S:  s339 

0:  o344  (((brown)  (travalar)  (trlpl)  slasilata-trlp)  avaluate-object) 
*^>G:  g363  (oparator  no-ehanga) 

P:  p83  (task) 

S:  d373 

0:  c374  ((brown)  (travalar)  (trlpl)  siaulata-trlp) 

»>&:  g396  (oparator  no-changa) 

P:  p403  (slnulata-trlp) 

S:  s414 

O:  0416  ((sagnontl)  slaailata-sa^ant) 
g422  (oparator  no-changa) 

P:  p429  (sloulato-sagaant) 


0: 

O: 

0: 


p429 

s439 

o441 

0443 

0464 


(typawrltars  200.0  0.2 

(cosputa-rasourcas) 

(updata-rasouroas) 


1000.0  load) 


:  o470  ( (sagaantP)  slaulata-sagaant) 
b>G:  g474  (oparator  no-changa) 

P:  p481  (slaulata-sagaant) 


52 

53 

54 

Buil<l:p513 

Balld:pS14 

55 

56 

57 

58 

59 

60 

Build: p558 
Baild:p559 
61 
62 

63 

64 

65 

66 

67 

Bulld:p609 

Balld:p610 

68 

Bulld:p613 
Balld:p614 
Build :p615 
Build: p616 
Build :p617 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

Build: p686 

79 

80 
81 
82 

83 

84 

Build: p730 
Build :p731 

85 

86 

87 

88 

89 

90 

Build;p775 

Build:p776 

91 

92 

93 

94 

95 

96 

97 

Build: p828 
Build :p829 

98 

99 

100 
101 
102 


S:  *491 

O:  0493  (coaputo-raaouraos) 
O:  o508  (updata-roaouxeoa) 


O:  o515  ((a*gBBat3)  aiaulata-aagmant) 
»>XS:  g519  (opaxator  ao-ehanga) 

B:  p526  (alaalata-aagaant) 

S:  bS36 

O:  0538  (esaapnta-xaaeuroas) 

0:  0553  (updata-rasouroaa) 


O:  o560  ((aajiaant4)  aianlata-aagaant) 

«>a:  g562  (opaxator  no-changa) 

B:  p569  (alanlata-sagBwat) 

S:  a579 

O:  oS81  (typawxitaxa  200.0  0.25  1000.0  unload) 
O:  0583  (eoaputa-xasouxcaa) 

O:  o604  (updata-raaouxoas) 


O:  0419  (txip-aueeaada) 


O:  o380  ((gray)  (pipax)  (txlp2}  ainulata-trip) 
»>G:  g621  (opaxator  no-changa) 

B:  p628  (aimlata-txip) 

S:  a639 

0:  o641  ((aagnantl)  ainBlata-aagaamt) 

»t>6:  g647  (opaxator  no-efaanga) 

B:  p654  (aiafulata-aagawnt) 

S:  a664 

O:  o666  (eoaiputa-xaaouxena) 

0:  o681  (updata-xaaouxcaa) 

O:  o687  ((aaipaantB)  aiaulata-aagnant) 
xbXS:  g691  (opaxator  no-obanga) 

B:  p698  (aianlata-aagaant) 

S:  a708 

O:  o710  (eo^puta-raaouxcaa) 

0:  o725  (updata-xaaouxcaa) 


0:  o732  ((aagaantl)  aiaailata-aagawnt) 
»>6:  g736  (opaxator  no-obanga) 

B:  p743  (alaalata-aagaant) 

S:  a753 

O:  o755  (eoaipnta-xaaouxoaa) 

O:  o770  (updata-xaaouxcaa) 


O:  0777  ( (aagaant4)  alaalata-aagaant) 
»>>C;  g781  (opaxator  no-obanga) 

B:  p788  (alaalata-aagaant) 

S:  a798 

O:  o800  (caxpat  100.0  0.2  500.0  load) 
0:  o802  (ceoputa-xaaouxoaa) 

O:  o823  (updata-raaouxcaa) 


0:  o830  ( (aagaantS)  aiaulata-aagaont) 

B»>C:  g834  (opaxator  no-obanga) 

B:  p841  (aiaulata-aagnant) 

S:  a851 

O:  o853  (oaxpat  100.0  0.25  500.0  unload) 
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103 

O:  o855  (ooaputa-raaouroaa) 

104 

-  o876  (updata-raaonroaa) 

Build:p881 

Bulld:p882 

105 

0:  o883  ( (aagaant6)  aianlata-aagaant) 

106 

3b=>G:  gS85  (oparator  no-ohanga) 

107 

P:  p892  (siaulata-aagaant) 

108 

S :  a902 

109 

O:  o904  (nawapriat  400.0  0.2  6000.0  load) 

110 

0:  o906  (ooapata-raaoureaa) 

111 

0:  o931  (updata-rasouroaa) 

Balld:p936 

Baild:p937 

112 

0:  o938  (waigbt-llait-axoaadad  local-conatraint-failad) 

Build: p943 

113 

Build :p945 

0: 

a365  (failura  final  avaluata-atata) 

Evaluation  of  oparator  c374  (aiaolata-trip)  ia  failura 

Bulld:p946 

115 

0:  o346  ( ( (gray)  (pipar)  (tripl)  siaulata-trip)  avaluata-object) 

116 

=*>G: 

g948  (oparator  no-ehanga) 

117 

P: 

p83  (taak) 

118 

S: 

d958 

Firing  119:915  p946 

119 

0: 

0959  ( (gray)  (pipar)  (tripl)  aiaulata-trip) 

120 

a* 

>6:  g981  (oparator  no-changa) 

121 

P:  p988  (aianlata-trip) 

122 

S:  a999 

123 

O:  olOOl  ( (aagaantl)  sianlata-aagaant) 

124 

szXS:  gl007  (oparator  no-changa) 

125 

P:  pl014  (aiaulata-aagaant) 

126 

S:  al024 

127 

0:  ol026  (typawrltara  200.0  0.2  1000.0  load) 

128 

O;  ol029  (eoqmto-raaouroaa) 

129 

Bulld:pl054 

0:  ol049  (updata-raaouroaa) 

130 

0:  ol055  ( (aagiBant2)  8lMilata>sagBMmt) 

131 

»x::  gl059  (oparator  no-cbaaga) 

132 

P:  pl066  (alBulata-aagBont) 

133 

S:  S1076 

134 

0;  ol078  (aoapota-raaouroas) 

135 

0:  ol093  (updata-raaouroaa) 

Bulld:pl098 

Bulld:pl099 

136 

O:  ollOO  ((aagBant3)  aiaailata-aagaant) 

137 

•»XS:  gll04  (oparator  no-dianga) 

138 

P:  pllll  (siaulata-aagBMnt) 

139 

S:  all21 

140 

0:  01123  (ooaputa-raaourcaa) 

141 

0:  01138  (updata-raaouroaa) 

Bulld:pll43 

Bulld:pll44 

142 

0:  01145  ((aagBaat4)  aiaHlata-aagaant) 

143 

*^>G:  gll47  (oparator  no-obanga) 

144 

P:  pll54  (sianlata-aagaant) 

145 

S:  all64 

146 

0:  01166  (typawrltara  200.0  0.25  1000.0  unload) 

147 

O:  01168  (ooi^to-raaourcas) 

148 

O:  01189  (updata-rasouroaa) 

Build:pll94 

Baild:pll95 

149 

0:  ol004  (trip-suooaads) 

Boild:pll98 

Bolld:pll99 

Boild:pl200 

Bttild:pl201 

Hatraoting  150: 

:1170  p946 

Balld:pl202 

150  0:  0966  ((brown)  (travwlwr)  (trip2)  •iaulato-trip) 
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151 

152 

153 

154 

155 

156 

157 

158 

159 

Balld:pl271 

160 
161 
162 

163 

164 

165 

Build :pl315 
Bulld:pl316 

166 

167 

168 

169 

170 

171 

Bulld:pl360 

Build:pl361 

172 

173 

174 

175 

176 

177 

178 

Balld;pl413 

Build:pl414 

179 

180 
181 
182 

183 

184 

185 

Balld;pl466 

Bulld:pl467 

186 

187 

188 

189 

190 

191 

192 

Btti.ld:pl517 

Build:pl518 

193 

Build: pl521 
Bulld:pl522 
Build:pl523 
Buiia:pi524 
Build: pl525 

194 

195 

Build:pl534 

Build:pl535 
Build: pl536 
Build:pl537 


«b>G:  gl206  (opurutor  no-eliAnga) 

F:  pl213  (•imlatu-trip) 

S:  •1224 

0:  01226  <  (■•j— ntl)  •ianloto-augment) 
»>C:  gl232  (oparator  ao~ebaag*) 

P:  pl239  (■loulato-MigMnt) 

S:  01249 

0:  ol251  (coa^ta-raaourcos) 

0:  01266  (updata-xaaourcas) 

O:  01272  ( (•■gaant2)  aianlata-aagawnt) 
->•>€:  gl276  (opaxator  no-ehanga) 

P:  pl283  (aiaulafca-aagnant) 

S:  al293 

O:  01295  (ooiipota-raaouroaa) 

O:  O1310  (updata-raaoureaa) 


0:  01317  ((aagaant3)  aiaialata-aagnant) 
*^>G:  gl321  (oparator  no-ebanga> 

P:  pl328  (aiaulata-aagBant) 

S:  al338 

0:  ol340  (eoagmta-raaouroaa) 

0:  01355  (updata-raaoureaa) 


O:  01362  ( (•agaant4)  aimulata-aagnant) 
B>C:  gl366  (oparator  no-ehaztga) 

P:  pl373  (aimlata-aagmnnt) 

S:  al383 

O:  01385  (carpat  100.0  0.2  500.0  load) 
0:  01387  (coi^ta-raaouroaa) 

0:  O1408  (updata-raaoureaa) 


0:  01415  ( (aajaantS)  aiaailata-aagaant) 

=n>6:  gl419  (oparator  no-changa) 

P:  pl426  (aiaulata-aagnant) 

S:  01436 

O:  01438  (carpat  100.0  0.25  500.0  unload) 
O:  O1440  (cooiputa-roaourcaa) 

O:  01461  (updata-raaoureaa) 


0;  01468  ( (■agmant6)  aiwlata-aagnant) 
gl470  (oparator  no-cbanga) 

P:  pl477  (aiaailata-aagBant) 

S:  01487 

O:  01489  (nawaprint  400.0  0.2  6000.0  load) 
0:  01491  (eoaputa-raaouroaa) 

O:  01512  (updata-raaoureaa) 


O:  01229  (trip-aueeaada) 


O:  01526  (no-tripa-laft  •<d>adula-aueeaada) 

0:  0950  (aucoaaa  final  avaluata-atata) 

Evaluation  of  oparator  c959  (aiaailata-trip)  ia  auccaaa 

Evaluation  of  oparator  cl82  (aiaulata-trip)  ia  partial -auccaaa 


Build :pl538 

196  0:  ol06  ( (graan)  (oannonball)  (trip3)  aiaulata-trip) 
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Firing  197:1573  p323 
Firing  197:1573  p327 
Firing  197:1573  p324 
Firing  197:1573  p325 
Firing  197:1573  p326 
Firing  197:1575  p946 
Firing  197:1575  pl535 

197  O:  oll5  ( (gray)  (pipar)  (trlpl)  aiaulnta-trlp) 

Firing  198:1580  pll98 

Firing  198:1580  pl202 
Firing  198:1580  pl201 
Firing  198:1580  pll99 
Firing  198:1580  pl200 
Ratraetlng  198:1582  pl53S 
Ratraotlng  198:1582  p946 

198  0:  oll2  ((brown)  (travolor)  (trip2)  aiaulato-trip) 

Firing  199:1587  pl521 

Firing  199:1587  pl525 
Firing  199:1587  pl522 
Firing  199:1587  pl523 
Firing  199:1587  pl524 

199  0:  01542  (no-tripa-l«£t  aehodulo- auceaada ) 

200  0:  ol02  (flnal-atato) 

Spaoo  taak  auccaodad  in  goal  g76. 

Build:pl548 

Bulld:pl549 

201  O:  o6  (bait) 

Appliad  taak  oparator  o69  (do-taak) .  Final  atata  la  a73. 

Snd  —  Explicit  Balt 
nil 

<cl>  (llat-chunka  "  /af a/ca .  emu .  adu/naar/al  t-aiann/taql/trwek/ehunka  ■  aoar " ) 

Copying  chunk  a  to  flla  /a£a/ca. cam. adu/uaar/altaiann/tagl/truck/chunka. aoar. 

t 

<cl>  (print-atata) 

Soar  (Varaion  5,  Balaaaa  2) 

Craatad  Euguat  26th,  1991 

Run  atatlatlca  on  Juna  3,  1992 

Allagro  CL  3.1.12.2  [DECatation]  (11/19/90)  DECatation  id:  385  Oltrix  CRICERATOPS . SOAR . CS . CMU . EDO 

362  productiona  (6491  /  27250  nodaa) 

69  chunk a  (69  /  362  productiona) 

109.383  aaconda  alapaad  25.353  aaconds  chunking  ovarhaad 

202  daclalon  cyclaa  (541.50006  aa  par  cycla) 

707  alaboratien  cyclaa  (154.71428  mm  par  cycla) 

(3.5  a  eyclaa/d  cycla) 

2040  prodoction  firlnga  (53.61912  mm  par  firing) 

2.8854313  productiona  in  parallel 
9415  RBS  actiona  aftar  Initiallaatlon  (11.61795  aw  par  action) 

392  aaan  working  i>aaii 1 1  j  also  (1041  naxlaun,  350  currant) 

3347  naan  tokan  aaoory  aisa  (9279  aaziauB,  1802  currant) 

21814  laft  tokana  addad,  19337  rl^t  tokana  addad,  41151  total  tokona  addad 
21369  laft  tokana  raaovad,  17980  right  tokana  raatovad,  39349  total  tokens  removed 
80500  token  changea  (1.358795  aa  per  change) 

(8.549278  changaa/aetion) 

nil 

<ol>  (taql-atata) 

XAOL  3.1.4 

Craatad  Jbly  15,  1991 

XAQL  atatlatlca  on  June  3,  1992 

Aaiogro  CL  3.1.12.2  [DECatation]  (11/19/90)  DECatation  id:  385  Dltrix  IRICERATOPS.SQAR.CS.CMa.EDU 

47  TCa  (46  uaar,  1  default) 

coaipllad  into  124  productiona  (101  uaar,  23  default) 
t 

<cl>  ; ;  and  of  trace 
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4.4.  Chunk  Listing 


MPte:  sou 


CXMted  od 
XMt  Mftitifl 
Lut  nmfifti 
np4at«  Ceoti 
•oar  Yoraloi 


/af a/oa .  .  otfB/oaor/altMsn/taql/tzoak/o 

■rlk  Altaan 

Vad  JOB  a  20:2<:5<  1M2 


■ad  JOB  3  20:27:22  XM2 
1 

S.2.X 


Chnnka  ganoTatad  bgr  a  i 
VzooklBg  vaak,  aka  ****rr' 
oeda  la  la  trook.kaql.  2! 
ganaratad  la  la  traoa.txt 


(  of  tka  aao^ta  l^laaa 

r  tnkaitniing  JUalataat. 
traea  frca  ahlA  tkaaa 


Copyright  1092,  rarnagla  Manaa  nalvaralty. 


(ap  p277 

(goal  <gl>  ^atata  <a2> 
(atata  <a2>  -NaiaraatH 
(^orator  <al>  *aaaa  mi 

(Hat  <11>  ^oar  <tl>) 
(raaaoroaa  <rl>  *Bimai 


^aparator  <al» 

JMlata*aa^aet  ^aoflpaat  <al> 
poBBtl  *trlp  trips) 


— > 

(atata  <a2>  ^oarroBt-xa 
(Hat  <12>  *aar  <r2>  ♦ 
(raaooroaa  <r2>  ^aa^paa 


(ap  p3X9 

(goal  <gX>  *atata  <a2> 
(atata  <a2>  ^doMqr^att* 
(Hat  <U>  ^oar  <rl>} 
(raaooraas  <rX>  «^aa(pMi 


■ooroaa  <12>  4«  <12>  4) 
kodr  all  ♦  ^tfpa*  Hat  <f) 

t  aapMBDtl  ♦  aa^aBtl  «  *tr^  trip!  4  trlpS  t 
6  aalikt  32000  4  32000  a 

t-vol«H  1200  4  1200  c  ^cttrraat-tiaa  11  4  11  «)) 


(aparatar  <al>  ^aaaa 
(aagMBt  <al>  *aaM  a 

-*> 

(atata  <a2>  *aBrraBt~: 


(ap  p320 

(goal  <gl>  *atata  <a2>  ' 
(atata  <a2>  ^doaqr-Att* 
(Hat  <11>  *aar  <rl>) 


Mat  aagaawtff  ^aBtaant-oolia  1200 
'oat  oaigkt  32000) 

alanlata^aapaKt  ^^roaaoroaa  <11>  *a 


(aparatar  <al>  *aaaa  alaa 
(aa^aot  <al>  ^Baaa  aapa 

— > 

(atata  <a3>  ^oarraot-raai 
(Hat  <12>  *aar  «2>  4  *« 
(raaaoroaa  <r2>  ^aa^aat 


PMBt  aapBaB{t2  ^oorcaBt-oolwa  1200  *oqacraBt«ttoa  11 
!Mt  oal»t  32000) 

alaailata  aa^pwat  ^raaoaroaa  ^aapawt  <al>) 

iipiant?  *trlp  trips) 


laoroaa  <12>  l«  <12>  4) 
odr  ^ll>  4  ^'typa*  Hat  4) 

.  aapaaotk  4  aagBaBt2  c  ^trip  trips  4  trips  4 
oaigtet  32000  4  32000  4 

■'OOltaw  1200  4  1200  4  *qorraBt~tiaa  11  4  11  4)) 


(drloar  <dl>  *drloo>tlaa  11) 

; ; ; > 

(atata  <d4>  ^trook  <t2>  -)) 

(ap  p323 

(goal  <gl>  *atata  <d4>  ^aparatar  <el>) 

(atata  <d4>  troa  ^drloox  <d3>  ^aaxrant-aehadala  <ll>) 

(dalaao  <d3>  *dxloo-tlaa  11) 

(Hat  01>  <^aar  <d2>) 

(aparatOT  <d2>  *trlp  <dl>) 

(trip  <dl>  *BaM  Aaaqr) 

(aparatar  <ol>  ^aagna  aiaolata-trip  ^drloar  <dS>  ^txoea  «tl>  ^^ip  <t2>) 
(trook  <tl>  *oeli»a  1200  '^ooight-lljait  32000) 

— > 

(atata  <d4>  ^drlaar  <d3>  >) ) 

(ap  p33< 

(goal  <gl>  *atata  <d4>  ‘‘^aparatar  <el» 

(atata  <d4>  ^d^Bg-att*  tma  ^corrant-trlhadola  <11>  ‘'trip  <t2>) 

(Hat  <11>  ^aar  <d3>) 

(aparatar  <d3>  *tsip  <d2>) 

(trip  <d2>  ^aoa  di^r) 

(aparatar  <al>  ^aaaa  alanlata-trlp  ^'trlp  <t2>  ^drirar  <dl>  ^'trock  <tl>) 
(drlaar  <dl>  *dxlra-tlaa  11) 

(trook  <tl>  *roli»a  1200  ‘^valght-Halt  32000) 

— > 

(atata  <d4>  «trlp  <t2>  >)) 

(ap  p327 

(goal  <gl>  *atata  <d4>  ^aparatar  <al>) 

(atata  <d4>  *daaqr~*^*  traa  ^aaxraat-aokadiila  <11>) 

(Hat  <11>  ^aar  <d3>) 

(aparatar  <dS>  *trlp  <d2>) 

(trip  <d2>  di^r) 

(aparatar  <el>  ^mna  alaBlata*>trip  *dxlv%x  <dl>  ‘^trock  <tl>  *trip  <t2>) 
(drlvar  <dl>  *dxlra-tlaa  11) 

(trook  <tl>  *rn1f  a  1200  ^aalght-Hait  32000) 

— > 

(atata  <d4>  ^aarraat-adhadala  <12>  4,  <12>  4) 

(Hat  <12>  ^ypa*  Hat  4  *adr  <11>  4  ^ear  <cl>  4)) 

(•P  po«» 

(goal  <g2>  *atata  <a4>  ^^oparatar  <al» 

(atata  <a4>  ■■^oBrrt^^raaaQiuaa  ^daMg'^att*  troa) 

(aparatar  <al>  ^aaaa  alaniata  la^Mt  *aagaast  <a3>  ^raaaoreaa  <11>) 
(aa^MBt  <a3>  ^laad-ahl^aat  typarrltara  -*load-ahisBaat  VZL 
*Baaa  aa^aatl  ‘'trip  trlpl) 

(Urt  <11>  *aar  <rl>) 

(raaaoroaa  <rl>  *canTt  onluaa  040  ^cnrraot-tlaa  11 
*wiinm  aaiglil  10000) 

(gaal  <gl>  ^akjaot  mXL  *4tata  <a2>) 

(atata  <a2>  *ahl|MiBt  <al>» 

(akipBaat  <al>  *wmm  tjpaarltara  ^valgtat  looo.o  ‘‘reloaa  200.0 
*Iaad*tlBa  0.2) 

— > 

(atata  <a4>  ^Borraot-iaaniiri.iaa  <12>  4,  <12>  4) 

(Hat  <12>  *aax  <r2>  4  ^odr  all  4  ^typa*  Hat  4) 

(raaaoroaa  <r2>  ^aagoaat  aoMadtl  4  ao^antl  4  ‘trip  tzipl  4  trlpl  t 
^onnit  oaight  9000. 0  4  9000.0  t 
*fairTan4»ralfa  440.0  4  440.0  4 
*aarraat-tlM  10.0  4  10.0  4)) 


(ap  p323 

(goal  <gl>  *atata  <d4>  *  aparatar  <el>) 

(atata  <d4>  ^diHg-att*  troa  ^aurroBt-actiaitiUa  <Xl» 

(Hat  ^1>  *aar  ‘<d3>) 

(aparatar  <d3>  *trlp  <d2>) 

(trip  <d2>  daag) 

(aparatar  <ol>  ^wmm  aiawlata-trip  *drloar  ddl>  ^trook  <tl>  *trlp  <t2>> 
(drloar  <dl>  *drioa  tlaa  11) 

(trook  <tl>  *oelBaa  12M  ^oatgiif-Hait  32000) 

— > 

(atata  <d4>  *oorroa»-ai^adn1  a  <xi>  -)) 

(ap  p324 

(gaal  <gl>  *atata  <d4>  ^aparatar  <ol» 

(atata  <d4>  *daMg-att*  troa  *traak  <t2>  ^oorraafc-a<diadola  <ll» 

(trook  <t2>  ^Yalioia  1200  ^Ight-lAmlt  32000) 

(Hat  <X1>  <SMr  <43>) 

(aparatar  <d3>  *trip  <d2» 

(t^  <d2>  - - dMg) 

(aparatar  <al>  ^oana  alanlata-trip  ^trook  <t2>  *drloar  <dl>  ^ip  <tl» 


(ap  p313 

(goal  <gl>  *atata  <a2>  *  aparatar  <ol>) 

(atata  dat>  *daag-aitt*  troa  ^oorraat-raaooroaa  <ll>) 

(Hat  <11>  *oar  •<rl>) 

(raaaoroaa  <rl>  -*aa^aat  aa^if?  *oarzoBt-oalm»  440.0 
*aomat-tlaa  10.0  *oogxoBt«aalght.  9000.0) 

(aparatar  <al>  ^obm  aiiwJata  aa^aiit  ^raaaoroaa  <ll>  ‘*aa^aat  <al>) 
(ii^int  <a3>  ^oaaa  ai^iaitO) 

— > 

(atata  <a2>  *qarTaot>raaaoroaa  <U>  -)) 

(ap  p914 

(gaol  <gl>  ^atata  <a2>  ^aparatar  <al» 

(atata  <a2>  ^dong-att*  troa  *oorroofc«raa ooroaa  <11>) 

(Hat  <11>  <rl>) 

^aorroot-tlM  10.0  ^aarraot-walglit  9000.0) 

(aparatar  <al>  ^maaa  aiil ata*aagMt  ^raaaoroaa  <11>  ^aagMot  <al>) 
(aa^ant  <al>  *oiaa  ■■^■at2  ^Ip  trlpl) 

— > 
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<«2>  ^qQr«wpt~g«gDaro«i  <02>  c,  <U>  4) 

(list  <ia>  *oas  «c2>  4  <<11>  4  *tips*  list  4) 

(rssoqgo»s  <s2>  *SS^MBt  SS^MBtJ  4  SS^MBtl  S  *tgip  ts^^  4  tzl^  ft 
*rinrrwit  silg^  MOO.O  4  MOO.O  ft 
*uuglSttt-^—  440.0  4  440.0  ft 
^aggrit-ti—  10. •  4  10. •  ft)) 


(sp  p550 

(goal  <gl>  *ststs  <s2>  *«psc«tss  <ol>) 

(ststs  <m2>  ^^■■qr'Att*  tnw  *qBgrsat~gssQBgass  <L1>) 
(list  <11>  *«ss  •ttl>) 

(rsseasoas  <sl>  -*s«^«Kt  s«^SBt3  *qagg— t  Tnlwai  440.0 


(opsrstog  <ol> 
(sa^MBt  <sl>  ' 


<al>) 


(ststs  <s2>  ^qaggsat-gasoQgoss  <11>  -)) 


<•»  pSS9 

(goal  <gl>  *stato  <s2>  *oparator  <ol>) 

(stato  <a2>  MoBqf-att*  tno  *aoggsBt~xasoqgoas  <I1>) 

(list  <11>  *oas  <sl» 

(rosooraas  ^1>  '*sogMBt  sa^MBt)  *OQgxsBt  oalT—  440.0 
*oaxs«Bt-tlaa  10.0  *OBr«sat  — i^t  0000.0) 

(opaxatox  <ol>  *BaM  slMlits  so(ps[nr  ^xosooxoas  <11>  *so^sst  <sl>) 
(■■jasnf  <sl>  ^'BSM  sonants  *tx^  txlpl) 

— > 

(stato  <s2>  *aQxxant~xasoqgass  <12>  ft«  02>  4) 

(list  <U>  *oax  <x2>  4  *ods  <11>  4  *tppo*  list  4) 

(rosoosoos  <x2>  ^so^MBt  sogMBtO  4  so^sBtO  ft  ^trlp  txlpl  <f  txipl  ft 
*qnrrsnt  oal^t  0000.0  4  0000.0  ft 
^OBTXSMt-Tfll IMS  440.0  4  440.0  ft 
^oorxaot-tlM  10.0  4  10. 0  ft)) 


(stato  <d2>  *4BBHqr~ott*  tx«o  ^txook  <t3>  ^gogrant- scbodalo  <11>) 

(txook  <t9>  *volna  440  ^volgtat-Uait  10000) 

(list  <11>  *aax  <a2» 

(apoxatox  <^>  *txip  <<t2>) 

(txip  <ta>  *uaa  txlpl) 

(apoxatox  <ol>  aftsBlato-txlp  ‘‘^xook  <tl>  ^drlTos  <4l>  ^^ip  <tl>) 

(dxlvox  <dl>  *Oriva-tiao  11) 

— > 

(stato  <42>  ^txnok  <t3>  -)) 

(sp  pClS 

(goal  <gl>  ^stato  <42>  ^opoxatox  <ol>) 

(stato  <42>  *4^Hp^att*  tXM  *dxioor  <41>  ^oursaat-* sehodola  <ll>) 
(Orioax  <41>  ^diiaa  tloa  11) 

(list  <11>  ^oax  <a3» 

(apoxatox  <tf>  *txlp  <t3>) 

(txip  <tl>  *Maa  txipl) 

(apoxatox  <ol>  *Baaa  siaBlato>txlp  ^dxioor  <dl>  *txook  <tl>  ^txip  <t2>) 
(txoak  <tl>  ^^olaaa  440  *«oi^-llalt  10000) 

— > 

(stato  <d2>  <^4xloor  <dl>  -)) 

(sp  p414 

(goal  <gl>  ^stato  <d2>  ^opoxator  <el>) 

(stato  <d2>  ^asaqr-stt*  txto  *>ongxant~s<^odgTa  <11>  ^^Ip  <t3>) 

(list  <11>  *oax  <a2>) 

(apoxatox  <e2>  *txlp  <tl» 

(txip  <t2>  *aaa  tx^l) 

(apoxatox  <ol>  *’aaam  sisoilato-trlp  ^‘txip  <t3>  ^drloar  <41>  ^^soek  <tl>) 
(Oxloox  <dl>  *drioo-tiao  11) 

(txn^  <tl>  ^oolOM  440  ^ooigtat-liiiit  10000) 

— > 

(stato  <42>  *txip  <tl>  >)) 


(sp  p409 

(goal  <g3>  *stato  <s4>  ^apoxatox  <ol>) 

(stata  <o4>  txoo  ^uutxoat-xasooXQOs  <ll>) 

(list  ^J>  *oax  <xl>) 

(zosooxoas  <zl>  •^aopMBt  sopMStO  ^goaxoBt-oolfM  440.0 
*aBxxaot-ti»o  10. •  *OQggaott  ooight  0000.0) 

(opaxatox  <ol>  ^aoao  olaolato  ■■poamt  ^xooooxoas  <L1>  ^oapaaot  <sl>) 
(sogiMait  <403^  ^■aloa4**'SlilpMXBb  tppooxitoxs  **>oaloa4— ohlpaxot  SU 
4aa^  oopswtO) 

(goal  <gl>  *objaat  wtL  *stato  <aSt>) 

(stato  <s2>  ^tfilpMBt  <sl» 

(shipoMSt  <sl>  ^ano  tppooxitoxs  *«ol^  1000.0  ^toIom  200.0 


(sp  p417 

(goal  <gl>  *atata  <42>  *opoxatox  <e2>) 

(stata  <42>  txao  ^ooxxoBt-scOMdola  <11>} 

(list  01>  *aax  <al» 

(opsxatox  <al>  *txlp  <tl>) 

(txip  <tl>  *%mm  txlpl) 

(cpoxatox  <a2>  *aiaM  sltl  atO“txj^»  ^dxioor  <41>  ^txock  <tl>  ''^ip  <t2>} 
(dxloax  <41>  ^Oxioo-tlM  11) 

(txwifc  <tl>  ^oolXM  440  ‘Noalght-Uiat  10000) 

— > 

(stato  <«2>  *gBgxat»o>tio<fBl  ■  <12>  4,  <12>  4) 

(list  <12>  ^tppo*  list  4  *adx  <11>  4  *^eax  <e2>  4)) 


— > 

(stato  <s4>  ^oargget^gasogroos  ^1>  •)) 

(sp  p410 

(goal  <g2>  ^stato  <s4>  ^apoxatox  <ol>) 

(stato  <s4>  ^'dMqr-att*  txoo  ^qaxxaat^xaaooxoos  <11>) 

(list  <11>  *aax  <rl>) 

(xosooroos  -^sopMBt  so^sBtS  *oaxxoet-ool»o  440.0 

‘^aBrxoot^tlM  10. •  ^uorroat  oatght  9000.0) 

(apoxatox  <ol>  ^asaa  •mpmaai  <11>  *so^ftBt  <sl>) 

(oo^ont  <o3>  *iin1  mO-akipxact  typoorltors  -^rnilooS-aMfoxt  PZL 
4aaao  so^sBtO  *txlp  txlpl) 

(goal  <gl>  ^ob^oot  m  *stato  <o2>) 

(stato  <s2>  ^shipMxt  <ol>) 

(shipMBt  <sl>  *Baao  ^fpooxltoxs  *oiit4it  1000.0  ^wolimm  200.0 
^OBlood-tiM  0.2S) 


(stato  <o4>  *angga«t“XftSDogBaft  <12>  4«  <12>  4) 

(list  <12>  ^oax  <x2>  4  *o4)&  •<11>  4  ^tppo*  list  4) 

(xosooroas  <x2>  *sopMBt  so^nt4  4  so^MotO  4  *txip  txlpl  4  txlpl  ft 
^rnirriMt  oii^  10000.0  4  10000.0  ft 
*rnTliil  islil  440.0  4  440.0  4 
^aarraat-tiM  10. 5S  4  10. 5S  4)) 


imp  p404 

(goal  <gl>  *stato  <s2>  *epoxfttsx  <el>) 

(stato  <s2>  •^oBxxant-xoooaxoos  *4aair-att*  troo) 

(apoxatox  <ol>  *mbo  siiloto^oo^iPt  <sl>  ^xosoareos  <11>) 

(oopBftot  <sl>  *MaM  oo^sotl  *txlp  txlpl) 

(list  <11>  ^oax  <xl>) 

(xoscaxoos  <xl>  *nnTTi»  ooVwo  400  ^eaxroat'tiao  12. S 
^coxxoMt  aii^  5000) 


(stato  <s2>  *aaxx«Bt*xosoaxoos  <1*>  4,  <22>  4) 

(list  <12>  Nmx  <x2>  4  *a4r  ail  4  list  4) 

(xoseaxoos  ^2>  *oo^Ht  so^Matl  4  aopaoatl  ft  '^ip  trip2  4  tzip2  ft 

^uaif  t*aaigt<t  5000  ♦  5000  ft  ^ooxxoat-Toloao  400  *  400  ft 
^OBXxaat-tlaa  12.5  4  12. 5  4)} 


(^p720 

(goal  <gl>  *stato  <a2>  ^opaxfttox  <el>) 

(stoto  <s2>  *4BBqr->att*  txao  ^auigftat»xaooqxooo  <11>) 
(list  <11>  ^oax  <xX>} 

(xosooKoao  <rl>  -^sopMOt  oo^aBt2  ^oorzoot-Tolx—  400 
*iaiM'Mi»  aqlgiil  SOOO) 

(apoxatox  <ol>  ‘*aiao  ^ggaaoxoas  <11>  ‘ 

(oo^MBt  <sl>  *aoBO  oogMOta) 


‘earroot-tiao  12.5 


<sl» 


(op  p413 

(goal  <gl>  *stoto  <42>  ^opoxmtox  <el>) 

(otato  <d2>  *4HBgfatt*  txao  ^oarxftBt-attiaSnla  <11>) 

(list  <11>  *aax  <a2» 

(opoxatox  <o2>  *txlp  <t3>) 

(txip  <ts>  *an  txipS) 

(Apoxatox  <al>  *aMM  alaalat»-tx^  *4xlxax  <dl>  *tzaak  <tl>  *txlp  <<t2» 
(4xlaax  <41>  *4xixa  tlas  11) 

(tzaA  <tl>  Eninas  440  ^aol^-liBlt  10000) 

— > 

(stoto  <42>  * - .JJ 

(sp  p414 

(goal  <gl>  *stoto  <42>  ^opoxatox  <al>) 


(stato  <s2>  *UBggaat"XasoajooB  <11>  -)) 

(sp  p721 

(gsal  <gl>  *stato  <s2>  ^opoxatox  <el>) 

(stato  <a2>  tnm  ^ooxxoBt^xossoxoas  <11>} 

(list  <11>  ^aax  <xl>) 

(xossaxoos  <xl>  -^so^sat  aapoMti  ^ooxf  t-xelfs  400  ^aarroat-tlaa  12.5 

(apoxatox  <ol>  ^boao  siaalato-sogasat  ^xooooxoos  <ll>  ^ti^ant,  <sl>) 
(oogaoait  <sl>  ^bsm  aipiMitO  *txip  txlpl) 

— > 

(stato  <s2>  *gaxx«t*t>Bsaxoas  ^2>  4,  <12>  4) 

(list  <U>  *aax  <r2>  4  4  *typo*  list  4) 

(xoooaxoos  ^a>  ^sogaaat  oopsHtl  4  oopopota  ft  ^Ip  txip2  *  txlp2  ft 
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SOM  *  SOOO  «  *oQrx«nt*volaM  400  4-  400  4 
*oars«Bt'-tiaw  12. S  4  12.5  i)) 

(«p  p77S 

(yoaJL  <gl>  <42>  ^apwitoy  <ol>) 

C«t«t4  <42>  tna  ^fiQrxit»r«amiTriaa  <11>) 

(li«t  •ai>  *04£  «1» 

(riawirnai  <rl>  M9Mat2  ^nnirant  aali—  400  *aBR«nt-tlaa  12. S 

*uii»at  — SOOO) 

(opantor  <ol>  ^naaa  tin  at  ■  aacPMnt  ^zaaooroaa  <11>  ^aa^aat  <«1>) 

<al>  ^'AMa  aa^MOtS) 

— > 

(stata  <a2>  ^oarMBt-raaoaraaa  <ll>  •)) 

(ap  p77« 

<gaal  <gl>  *atata  <a2>  *apacator  <ol» 

<atata  <a2>  txaa  ^uartiot-raaBQxoaa  <11>) 

(liat  <11>  *oaa  <el>) 

(raaoAsaaa  <rl>  aa^HBtS  *aBr«— t-aa1fi  400  ^aorraact-tljaa  12.5 

*unrrMt’  aalght  SOOO) 

(opacatac  <ol>  *aiBa  till  at  i  aiUMfit  ^aarwiraaa  <11>  ^aa^ant  <al>) 
(■■Mt  <al>  ^Aaaa  ^trip  trip2) 

— > 

(atafca  <a2>  ^ramMt-gaaawaaaa  <12>  4,  <12>  4\ 

(Hat  <12>  ‘^oar  <r2>  4  <11>  *  ^^typa*  Hat  4} 

*aug»aat  aai^t  5000  4  5000  «  *oaggant"golia  400  4  400  4 
^aamat-tlaa  12.5  4-  12.5  4)) 

(ap  p02t 

(gaal  <o2>  *atata  <a4>  Separator  <ol>) 

(atata  <a4>  *4MV«att*  tna  *  nan  ant  -gaapAgaa.*  <11>) 

(Hat  <il>  *aag  <rl» 

(gaaouroaa  <e1>  -*aa^aat  aa^aBt4  *aoggaatt  anl^a  400  ^OBEraat^tiaa  12. S 
^iwirrant  aalght  SOOO) 

(opaoratac  <ol>  alHata  aiipiMit  "Taannniaa  <11>  ^aa^aot  <a3>) 

(aa^pMot  <a3>  *laa4*ahipMAt  oaxpat  •^laad-ahlpAaot  VXL  ^aaaa  aa^Bt4) 
(paal  <pl>  ^abjaot  m  *atata  <a2>) 

(atata  <a2>  ^ililpat  <al>) 

(ahipaant  <al>  ^aapa  oaxpat  500.0  ^^volaAa  100.0  ^laa4-tJjMi  0.2) 

— > 

(atata  <a4>  ‘^<aiKX«Bt>xaaoaxoaa  <li>  -)) 

(ap  p02» 

(poal  <p2>  *atata  <a4>  ^apaxator  <al>) 

(atata  <a4>  ^Oaaap-att*  txaa  *i>ir  i  ■i»-xaaaAxoaa  <L1>) 

(Hat  <11>  ^oax  <pi») 

(xaaauaaaa  <rl>  -^aapaapt  aafpaat4  *aaxraBt>«^4.^Ba  400  *qnrTaut«tiAa  12.5 
•quxxMt  aaiqht  SOOO) 

(apaxatax  <al>  «ana  clAAlata^aa^ant  ^raaaoroaa  <I1>  *aajaant  <a3>) 
(aapaaat  <a9>  ^laa4«ahl^—t  aaxpat  -*load»ttil^afit  VZL  ^Aiaa  aa^aBt4 
*txip  txlp2) 

(paal  <<pl>  ^abjaat  SXL  *atata  <a2>) 

(atata  <a2>  *ah1rAawf  <al» 

(atlpAast  <al>  ^AaAa  oaxpat  SOO.O  ^^alwa  100.0  *loa4>tiaa  0.2) 

— > 

(atata  <a4>  *nB4iaot-xaaoaKoaa  <12>  4,  <I2>  4} 

(Hat  <12>  *oax  <xa>  4  *o0x  <U>  4  *tppa*  Hat  4) 

(xaaaoxoaa  ^2>  ^aa^aat  aa^aotO  ♦  aapMstO  4  *txip  txlp2  4  trlp2  4 
"umiaat  aai^t  4500. 0  4  4500.0  4 
*um.aAt  aalfa  300.0  4  300.0  4 
^oaxxaBt>tiM  12.3  4  12.3  4)) 


(ap  pon 

(paal  <p2>  ^atata  <a4>  ^apaxatax  <ol>) 

(atata  <a4>  *0Mqr-att*  txaa  *nntTant«xaaaoroaa  <11>) 

(Hat  <11>  *aax  <xl» 

(xaaaoxoaa  <xl>  •^aa^MOt  aapoaotS  ^imrTit  Ttiliaa  300.0 
*uMXxant-tlAa  12.3  ^ooxxat  aai^  4500.0) 
(apaxatax  <al>  *Biaa  alilata-aapaact  ^xaaaoxoaa  <H>  *aa^A 
(aapaiBt  <a3>  *vlaa4-ahlfBaBt  aaxpat  -*m>laad-aA^AaBt  WTL 


(paal  <fl>  ^at^aot  WXL  *atata  <a2>) 

(atata  <a2>  <al>) 

(ahipaaot  <al>  ^oaxa  oaxpat  SOO.O  ^nliaw  100.0 

^OAlaad-tlAa  0.25) 

--> 

(atata  <a4>  ^oaxxat-xaaooxoaii  <H>  -)) 

(*P  P0i2 

(paal  <oS>  *atata  <a4>  ^apaxatax  <ol>) 

(atata  <a4>  ^OoBop-att*  txaa  ^nntft-gaanoxoaa  <11>) 

(Hat  <11>  *oar  «1>) 

(xaaaoxoaa  <xl>  ^^aafpoBt  ■■pi— 1»  *‘rmrrmf  aali^a  300.0 
*ooxxoBt>tiBa  12.3  *oaxxaBt«oaipht  4500.0) 


(apaxatax  <al>  *Baaa  alilata  aapont  ^xaaaoxoaa  tll>  ^aapMot  <«3>i 
(aa^aat  <a3>  "imlaai  itiljoant  aaxpat  o^OAlead** ahipaaot  vxi 
^AMM  npiiait^  *txip  txip2) 

(paal  <pl>  *ob)aot  MIL  ^atata  <a2>) 

(atata  <a2>  ^ahifoaBt  <al» 

(ahiCMBt  <al>  *Aaaa  oaxpat  ^ooipht  500.0  *^olia  100.0 
^mOjamA-timm  0.25) 

— > 

(atata  <a4>  ^oaxxaBt-xaaaoxoaa  <12>  4,  <12>  4) 

(Hat  <12>  *oax  <x2>  4  *odr  <11>  4  ^typm*  Hat  t) 

(xaaaoxoaa  <r2>  ^aa^ast  aapaaots  4  aapaaot^  4  *txip  tsip2  *  txlp2  4 
*oorxaot  aalght  5000.0  4  5000.0  4 
*aorx<At  xolt— a  400.0  4  400.0  4 
^oaxxaot-tiaa  12.05  4  12.05  4)) 

(9  pMC 

(paal  <p2>  ^atata  <a4>  ^apaxatax  <ol>) 

(atata  <a4>  *Pi^^^att*  txoa  ^ooxxaat^xaaoqxoaa  <U>} 

(Hat  ^oax  «1» 

(xaaanoaa  <xl>  •^aapMst  aa^aotC  ^ooxgaAt  aoloAa  400.0 

*niir¥Mir-tiAa  12.05  ^ooxxaat  aalght  5000.0) 

(apaxatax  <al>  *Aaaa  aiaAlata  aapwot  ‘‘^xaaooxoaa  <H>  ^aapaacst  <a3>) 
(aapMXtt  <a3>  *laa4-ahi^— t  aaaapxiat  ~^load*ati1x— ^ 


(paal  <ffl>  "^ab^aot  sn  *atata  <a2>) 

(atata  <a2>  ^ahipMAt  <al>) 

(ahipaaot  <al>  *aaoa  Aaaaprlfit  ‘■^Mlght  4000.0  ^xolna  400.0 
*laad>tiAa  0.2) 

— > 

(atata  <a4>  ^oorxaot-xaaoaxeaa  <ll>  -)) 

(op  pft37 

(paal  <p2>  ^atata  <a4>  *epaxator  <al» 

(atata  <a4>  *Paaqr>att*  txoa  *oBrxact~raacoxoaa  <L1» 

(Hat  <1X>  *oax  «tl>) 

(xaaaoxoaa  <xl>  -^aa^aott  aapaaotC  "rgmarit  arilnaa  400.0 

^OBxraot'tiBa  12.05  '^nniTant  aalqtit  SOOO.O) 

(apaxatax  <al>  ^Aioa  aiaolata-aa^aet  ^xaaaoxoaa  <X1>  ^aapaaot  <a3>) 
(aa^aot  <a3>  ^laad-ahi^aot  naaapxint  aMrAant  XXL  ^^naaa  Ba^aott 

*txip  txlp2) 

(paal  <fl>  *ato)aot  S2h  ^ata^a  <a2>) 

(atata  <a2>  ^ahipaaot  <al» 

(ah^oaot  <al>  ^maoa  aaoaprlat  ‘^aalpht  COOO.O  ‘MoltaM  400.0 
^laad-tioa  0.2) 

— > 

(atata  <a4>  *OMTaot-xaaaoroaa  <I2>  4,  <12>  4) 

(Hat  <12>  ^oax  <r2>  *odr  <H>  +  *^pa*  Hat  4) 

(xaaooEoaa  <x2>  ^aopaaot  aapaaotS  4  aapaaots  4  ^^xlp  txip2  4  trips  4 
^OBXxaot'Valpit  >1000.0  4  >1000.0  4 

*OBrxw4;>xalaoa  0.0  4  0.0  4  *eQrxaot>tlaa  11.8$  4  11.85  i 
*£alla4  txoa  4  txoa  4 

*xoaaao  4.  walpbt-llAlt-aara*dad  4}) 

(op  pM3 

(paal  <g2>  *atata  <d2>  Separator  <ol>) 

(atata  4d2>  *pBOip>att*  txoa  ^uugiaot-aaAadala  <U>) 

(Hat  <11>  Nor  <ol>) 

(apaxatax  <al>  *txip  <t3>) 

(txlp  <t3>  *Baoa  tzlpl) 

(apaxatax  <al>  *aaoa  alaolato-txlp  ^dxloor  <dl>  ^±mefc  <t2>  ^^ip  <ti>) 
(Moax  <dl>  12.5) 

(txook  <t2>  Not  4M  Nolpht-Holt  SOOO) 

(txlp  <tl>  ^drat-aopMOt  <al>) 

(aa^aot  <aH  Nmhm  aa^aotl  *tr^  txlp2  Naat-aa^ant,  <a2>) 

(aapMot  <a2>  *aaoa  aapBaDt2  Nxlp  txlp2  Naxt>aa^aet  <a3>) 

(aapanft  <a3>  Nuaaa  aa^aot3  Nxlp  txip3  Naxt>aa^aDt  <a4>) 

(aa^aot  <a4>  *Ioad>ahipoit  aaxpat  >*load>ahi^aot  VZL  N«m  aa^a&t4 
*txlp  txlpS  *Aaxt>aapBOBt  <aO) 

(oa^aot  <aO  NBlaa4>ahi^aot  oaxpat  -*nioa4-ahipAaot  VXl. 

Naoa  aa^aotS  Nxlp  txlp2  Naxt-aa^aot  <a9>) 

(aapaaot  <a9>  *laatf>4ai;^aat  oaxapriot  >'^laad>ahlpoaot  XXL  Naaa  aapanti 
Nxlp  txlp2) 

(paal  <pl>  Ntojaot  RX,  *atata  <ai>) 

(atata  <at>  "aiilfBTiit  <a7>  <a5>) 

(ahlyaMOt  <a7>  Naoa  mma§KiaA  •aaiglit’.  COOO.O  Nol«a  400.0 
*load>tlaa  0.2) 

(ahipaaBt  <a5>  oaxpat  Nalgtet  500.0  Nolaoa  lOO.O  Nalead>tlAa  0.2! 


(atata  <d2>  *laoal>oooatxalAt>fallad  <12>  4.  <12>  4) 
(Hat  <12>  *typa*  Hat  4  ^odx  <11>  4  *oax  <ol>  4)) 


(paal  <p3>  apana  ^1>  *atata  <al0>  ^abjaot  <pl>  ^opanter  <ol>) 

(prahlio  apana  ^1>  Naoa  aalaetlao) 
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(goal  <gt>  ‘ 

(pKoblia  appoa  ^SK> 


t~offtiaitn1a  t»lp  traok  drlvor 
-att* 

I  trip 


-*all'>attxltefeo«'at-l«vol  too  -*‘oom  loool~afctgifcqt— 
*oaao  taak) 

(atato  <«10>  ^ovaloatioa  <ol>) 

(ovaloatloa  <al>  *ol»j«al  <o2>) 

(oparatov  <o2>  «*itnat  oopy  trip  aana  txook  dxivor  ^aaaa  alanlata^tx^ 
*txip  <u>  ^trook  <tl>  Mrioar  <dl>} 

(tsip  <t5>  ^«aa  tdpl) 

(tmok  <tl>  ^Tolsa  S40  *oal^(t-llait  10000) 

(asloor  <dl>  *4rlva-tiM  11) 

(opaxator  <ol>  arvaloatiaB  ^attralnta  tpaxatoi! 

Matanlt»tata  uapy  y*  ^dafault  opaxator  jopy  yoa 
Nihjaqt  <aS>  *aupaTprnMi  apina  <^p2>  ^c^acatata  <d3> 
*<taai«a<  <M» 

(atata  <43>  *4Hr-a«ta  tcoa  ^^riaor  <42>  ^txook  <t4>  *tx±p  <t3> 

(dslvar  <d2>  ^Adva-tiM  It.t  ^hm  gcay) 

(tne'’  <t4>  *ainlTwa  400  ^vaigOft-liait  5000  *tipa  Mall  *aMa  pipas) 

(tc^  <t0>  *'mmm  taipt  *Cirat-aagnMt  <<al» 

(aa^MOk  <al>  *BMa  aa^HOtl  *txlp  txlpO  ^aaaxoa  gaxy  ^vast-aapMat  <a2>) 
(aagaaoEt  <a2>  *^mm  aapMotl  *t<lp  txipO  ^nact-aagaaaft  <a5» 

(mgaant  <a3>  ‘*«iaa  aa^aatS  ^txlp  txlp2  ^aaxt-aapMBt  <a7» 

(aoMank  <a7>  *loa4-*ahi^aafc  aaxpat  -*laa<t~ahifaafc  VZX.  ^nasa  nirianti 
^txlp  tsipt  ‘^aasfe^aa^Httt  <a0>) 

(■a^int  <a4>  *iin1  t  aaxpat  -*Mlaad-Ml|MBt  IXL 

*a«aa  aagaaaitS  *txlp  txlp3  ^aazt-aapaaat  <a0>) 

(aaga*"^  <a0>  *laa4'ah^aMatt  aaaaptigt  •^load-ahlpMait  VZL  ^vaaa  aa^actO 
^txlp  txlpO) 

<llat  ^1>-  *aar  <al>) 

(opaxator  <al>  *txip  <tl» 

(trip  <ta>  *aaM  trip!) 

(goal  <g2>  ^atojaat  m*  ^atata  <a0>) 

(atata  <a4>  ^ahipaaaEt  <aS>  <a4>  ^llMaaa  <12>  ^elty  <o2>) 

(afaipaaet  taS>  '^aaaa  aaaaprint  ^waigbt  4000.0  400.0 

^loa4-tlaa  0.2) 

(ahipMBt  <a4>  ^Mo  aaxpat  ^^aaigbt  SOO.O  ^n1>»a  100.0  *nn1  Aa4~tijaa  o.2S 
*laa4<-tiM  0.2) 

(liaacuM  <U>  Atxoet'*«YP«  HIT  ^lMl4ax  gray) 

(olty  <d2>  gury  ^^xook  pd^pox  ^Orirax  gray) 

> 

(ataloatioe  ««!.>  ^ayabolio  Taiaa  fallaxa  ♦)) 


(ap  p044 

(goal  <g2>  *4aaixa4  <44>  *pgobTi  apacia  <qd>  *atata  <42> 

Separator  <ol>  ♦) 

(problaa  apaoa  ^1>  -*tao  laoal-attxlbataa  Oaaiy-att*  Orloax  txook  trip 

ooxTaat-aafeaMla 

»*0eBt  nopy  Ooaqf-att*  Oriaar  txook  ^rlp 

onxoBt'aahaOala  »*oiia  1  aoal-attxlpgtaa 
~*all~attxU)atn-at-laoal  too  "Oiait  iwipj  ■njtliliig 


*aiaa  taak) 

(atata  <d2>  *iMg|  ait*  txaa  *4rlTox  <49>  ^txook  <t4>  ^^xlp  <t3> 
*qiMnraMt»aMntnl  a  41>) 

(OxlTar  <43>  *4rloa  tiaa  U.5  gray) 

(txoak  <t4>  *oaliMa  400  *aa1  pht»liait  SOOO  ^ypa  agall  ^'aaao  p^par) 

(trip  <t2>  *aiaa  txipO  *fixat-aapMBt  <al>) 

(aa^aaft  <al>  *aa»>  aapavtl  *txip  txlpt  *aoaxoa  gtxy  *aaxt-aagawt  <a2>) 

(oaMaafe  <aJ>  ^aaM  iiipiiaft  ^txlp  trtpO  ^aaxt'oagMBt  <a7>) 

(aa^Mt  <a7>  *load-MApaaatt  oaxpat  -*laa4*ghl|Mat  VZL  *aiaa  aapMotO 
*txlp  tnp«  ^aact-aagaaat  <a0>) 

(aapMBit  <a0>  Mlpianf  aaxpat  -*0Blaa4-ihi|BH«t  gn 

*BMa  aagpaatS  *txlp  txipO  ^aact-aagaaDt  <a0» 

(aa^aatt  <a0>  *lBg4  ahl^aat  aavaprlat  -*load>ahipwDt  VXL  ^aaaa  aagoMtO 
^^xip  txlpO) 

(Hat  <11>  *oax  <al>) 

(opaxatar  <aa>  *txip  <tX>) 

(trip  <t2>  *aaM  txipo) 

(opaxator  <aX>  >*4aa*>aopy  trip  aaaa  txaak  Orioar  *aMo  aianlata-tr^ 
*txlp  4t5>  *tx«M  <tl>  *4riaax  <dl>) 

(trip  <ts>  *Biaa  trlpl) 

(tmok  <tl>  *atilH  440  *aalpiit«llalt  loooo) 

(Orirar  <41>  ^dxioa-tlaa  IS « 


(goal  <gl>  *objaet  RL  Vcacta  <aO) 

(atata  <a4>  ^ahipMatt  <r  4>  <a4>  ^lioaaaa  <11>  *aity  <a2>) 

(rtif  H  <a5>  *BMBa  MOBjclaft  *«aipA  4000.0  ^^ooImo  400.0 
*laa4-t.-^  0.2) 

(ahifMot  <a4>  aarp^*  *«ai4bet  SOO.O  ■''aalMa  100.0  ^‘MloaO-tlaa  0.25 

*laa4-UM  0.4) 


(Uaaaaa  <12>  ^traak-l^pa  Mall  ^ba^Oar  gray) 
(ol^  <o2>  ^AMa  gaxy  *tz«ak  pipar  ^^Orlaax  gray) 
> 

(goal  <g2>  *oparator  <ol>  -)) 


(ap  pl054 

(goal  <g2>  *atata  <a4>  ^opaxatar  <ol>) 

(atata  <a4>  -^niin  Ml-riaiiTnaa  *4Hy-att*  txaa) 

(oparatar  <al>  ^aaaa  aiMlata-aa^aat  *aapMBt  <a3>  ^raaonreaa  <ll>) 
(aapHt  <aS>  *laad-ahipaMt  typaaritaxa  -*load-aM|^aat  VXL 
*MM  aagaaatl  '^tr^  tx^l) 

(Hat  <ai>  *ear  ol» 

(xaaaaxoaa  <xl>  ‘mi i Mil  tMliaa  400  ^oBrxMt-tlaa  12.5 
OBipH  5000) 

(goal  <gl>  ^fdijaot  RSi  *atata  <a2>) 

(atata  <a2>  ^ahlpaMt  <al» 

(ald^Mt  <aX>  ^Aaaa  tjpaarltara  ^>ialgbb  1000.0  ^veltiaa  200.0 

*laa4*tAaa  0.2) 

— > 


(atata  <a4>  *aiiriMi(  naMioaa  0.2>  4,  <12>  <f) 

(llat  <12>  ^x  M2>  -f  '*Mtr  ail  *  *typa*  Hat  *) 

(xaaiM  jaa  <r2>  *aagaMt  aa^aattl  t  aapaMtl  t  txlpl  *  txlpl  4 

^  mi  I  ml  ■aljlil  4000.0  *  4000.0  4 
'  nriMt  BiiliMa  200.0  *  200.0  4 
‘^oQXxaat-tiaa  12.3  t  12.3  4)) 


(ap  plOM 

(goal  <gl>  *atata  <a2>  ^opaxatax  <ol>) 

(atata  <a2>  *4aag>att*  txaa  ^ourrauL-raaaoroaa  <11>) 

(Hat  <11>  ^eax  <xl>) 

(xaaaaxoaa  <xl>  •>*aa^Mt  ^aoxxMt-  ml  mb  200.0 

^OBXXMt'-tlaa  12.3  ^umxaBtt  aaight  4000.0) 


(opaxatar  <al>  *^aam  mm^mm*.  «xaaoaraaa  <11>  xal>) 

(aagtaat  <al>  ‘^amb  nu^mtty 


(atata  <a2> 


->) 


(ap  plOOO 

(goal  <gl>  '^atata  <a2>  *aparator  <al>) 

(atata  <a2>  ^MMqf^att*  txAa  ^oarxaot-xaaaacoaa  <X1>) 

(Hat  <u>  *oar  <xl>> 

(xaaaaxoaa  <xl>  •-^aa^Mt  gBpiiait?  ^umiaot  ralpaa  200.0 
NAKxaAt-tiao  12.3  ^iwiiaBit  ra'tpht  4000.0; 

(oparatax  <al>  *AMa  aiaAlata*aagAMt  ^xaaooxoaa  <11>  ^aagaMst  <al» 
(aagoant  <al>  ^amb  aigawrtl  «txlp  txlpl) 

— > 

(atata  <«2>  ^MiiaDt^rianaTfiBB  ^2>  4,  <12>  4) 

(Hat  <!:£>  *aax  4  *oM  <1I>  4  *^ypa*  Hat  4) 

(raaoaxi^  a  <r2>  ^aagaant  aagAMt2  4  aa^MBtl  4  *txip  txlpl  4  trlpl  4 
^^ODxxMt  aalgtit  4000.0  4  4000.0  4 
*nnriMt  hiIimo  200.0  4  200.0  4 
'^oorraat-tiaa  12.3  4  I2.3  4)} 


(ap  pll43 

(fool  <gl>  *xtata  <a2>  ^opaxatar  <al» 

(atata  <a2>  ‘iTia^  ■)  \  n  traa  ^qBxrMt»4aaoai,oaa  <ll>) 

(Hat  <ll>  *oax  <rl>) 

(raaooroaa  <xl>  '^aaMMt  aa(H*>k3  ^uiuiaat  toImb  200.0 
^oaxraBt-tiaa  12.3  ^oaxTOBt-vaight  4000.0) 

(oparatax  <al>  ^amx  **™^»»*  *xaaaaraaa  <X1>  *aa^aat  <al>) 

(■■go oat  <al>  ^Aaaa  ao^Mtt) 

— > 

(atata  <a2>  ^OBXxaat-raaQaxBaa  <11>  -)) 


imp  pl244 

(goal  <gl>  *atata  <a2>  ^epaxatax  <al>) 

(atata  <42>  ^MMy-att*  txaa  ^earraBt-xaaoaroaa  <ll>) 

(Hat  <ii>  *aax  <xl>) 

^aorroBt-tiAa  12  3  '^eorroBt-valgbt  4000.0) 

(opaxatar  <al>  ^amb  aiaolata-aapMAt  *roowaxoai  <11>  *aaM^  <ai>) 

— > 


(atata  <a2>  *iaiiiH»x< 
(Hat  <12>  *oax  <xa>  4 


mm  <12>  4,  •02>  4) 

<11>  4  ^typa*  Hat  4) 

4  aagaaotj  4  *txlp  txlpl  4  txlpl  4 
4000.0  4  4000.0  4 
200.0  4  200.0  4 
12.3  4  12.?  4>) 


(ap  pllM 

(goal  <g2>  *atata  <a4>  ^apaxatax  <ol>) 

(atata  <a4>  ^itiaag;  olf  txaa  ^aarxMt-xaaaaxoaa  <71>) 
(Hat  <ll>  *aax  <xl>) 

(xaaaaxoaa  <xl>  -^aapaMt  aa^MBtO  ^oarraot-iPolMa  200.0 
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Et-'UJM  12. J 


Cnipagatflc  <•!> 

<aa> 

(goAl  <«1> 

<«tat*  <m2> 

<al>  *9m 


(«tat«  <s4>  ' 


L2.J  -»qargMt  iwtjlit  4000.2) 

^■■OOTBUl  <11> 

typnilfy 


WXL  <«2>) 

■ffe  <•!>> 

m  typwi.itasr0  *«%iOht  1000. 0  200.0 

Load-tlM  0.2S) 


I  <11>  -)) 


<sp  pllOS 

(Ooal  <o2>  <«4>  ^oparator  <q1>) 

<«4>  *iliMm  txaa  *aBrT«nt-»ioqrMi  <0^) 

(list  <11>  *afts  ^1>) 

12.3  ^ mil  rail  uuX^tt  4000.0) 

(operator  <el>  ^arao  oi—l ■to-oo^ont  ^loogmoo  02>  *oo^Bt  <«3>) 
(■•^MBt  <o3>  *ii1oi4  ildifiat  tfp— ittoa.0  -^rml oo4-ohiprattt  VZL 

(goal  4gl>  ^objoet  MU$  Potato  <a2>) 

(otata  <s2>  ^ahi^oBt  <■!>) 

(■h1|»aiit  <ol>  *BaM  typ—Aitara  *«aigbt  1000.0  ^rolwm  200.0 
*«load-ttea  0.2S) 

— > 

(rtata  <a4>  *aMroet-rooaaraoo  <12>  4,  <12>  ♦) 

(list  <12>  ^^oar  ^2>  4-  ^oOr  <11>  4  ^ypa*  list  4} 

(rosoosoas  <r2>  ^sa^arat  aa^aoti  4  f^mti  4  *trlp  tripi  <f  tripl  4 
"illfrit  00 i gill  SOOO.O  +  SOOO.O  4 
I  Mif  Toll—  400.0  4  400.0  4 
^oarraBt-tlJM  12.08  4  12.08  4)) 


(trip  <t3>  *mamm  txlp8> 

(nparatar  <a2>  ^mbo  siaBlata^tclp  ^drlaar  <41>  *tzaeJe  <tl>  ^trip  <t2» 
(driver  <dl>  *dslva>tiM  12.8) 

(tmofc  <tl>  *vnliMa  400  *aa)gtTt-lialt  8000} 

— > 

(state  <d2>  *oMaragt-sf0iailn1  a  <12>  4,  <12>  +) 

(list  •a2>  *typa*  list  4  ^odr  <11>  4  '“ear  <e2>  <f)) 

(Sp  pl2Tl 

(goal  <gl>  *state  <a2>  Separator  <ol>) 

(otata  <a2>  *  *fliirTOBt»r  as  oar  ao  ■  *0BBBqr>att*  teas) 

(nparatar  <el>  ^bimo  rlanlato  aa^et  ^aapMBt  <al>  ^oaoorMo  <ll>} 

(list  <ll>  *aar  <rl>)*^*^ 

(raaeoroas  <rl>  "ourxmt  aal^a  €40  ^oarrant-tleo  ll 
^oorraBt  aalqtit  lOOOO) 

— > 

(state  <s2>  ^nnTTm&  raaouroao  <12>  4,  <12>  4) 

(list  <12>  ^oar  <x2>  +  *edr  all  4  *typa*  list  4) 

(casoocoao  <r2>  ^aapMBt  sa^aotl  4  sa^antl  4  tsip2  4  tzlp2  « 

^nuriaiit  aaiglit,  10000  4  10000  4 

^cairraet  ■uluaa  €40  4  €40  4  ^easraet-tlM  11  4  11  4) ) 

(sp  pl315 

(goal  <gl>  ^state  <s2>  ^oparator  <ol>) 

(state  <a2>  ^draag-att*  tzae  ^earraBt-rasearaas  <11» 

(list  <11>  ^oar  <rl>> 

(rasnnteaa  <rl>  -^aa^Mttt  ■■piant*^  *aBr«aat»velt»a  €40  ^earsoBt-tlM  II 
^oorzeBt  eaigtit  lOOOO) 

(oparataa  <ol>  ^^Biaao  aiSBlata-ae^MBt  ^sasooroos  <ll>  ^>agaont.  <sl>} 
(aa^aet  <sl>  ^^Btaa  ae^Bt2) 


(sp  pllOi 

(goal  <gl>  *stata  <d2>  ^operator  <ol>) 

(state  <d2>  ^das^y-att*  tno  ^earr^t-sstiaiima  <11>) 

(list  <11>  *oar  <a2>) 

(operator  <a2>  *tzip  <t3>) 

(trip  <<t3>  ^Boaa  tripS) 

(operator  <al>  *Baaa  slit  at  e-trip  Mrivar  <dl>  *tmak  <tl>  ^±rlp  <t2>) 
(drives  <dl>  ^drlva-tiaa  12.8) 

(tsBOk  <tl>  ^volOBO  400  ^aai^-Usklt  8000) 

— > 

(state  <d2>  rnrrirrr'^ - ir^tinl  >  <11>  -)) 

(sp  pllPO 

(goal  <gl>  Estate  <42>  ^operator  <el>) 

(state  <d2>  *daBBqf-att*  tree  ^tsaok  <t3>  *qarrapt-s<o>odBla  <11>) 

(traok  <t3>  ^valrae  400  ^aelgkt  •'lielt  5000) 

(list  01>  *Qar  <a2» 

(operator  <a2>  *tr^  <t2>) 

(trip  <t3>  trlpJ) 

(operator  <ol>  ^raasi  sin  ate-txip  ^traok  <t3>  ^driver  <dl>  *tzlp  <<tl>) 
(driver  <dl>  *drlve  tl»e  12.5) 

— > 

(state  <d2>  ^traede  <t3>  -)) 

(sp  pi2eo 

(goal  <gl>  Estate  <d2>  ^oparator  <al>) 

(state  <d2>  ^dra^r^att*  tree  ^driver  <41>  ^cBiAOBt-eohadiaa  <11>) 
(driver  <dl>  *driva  ties  12.8) 

(list  <Oi>  *oar  <^) 

(operates  <o2>  *trip  <t3>) 

(trip  <t3>  ^arae  trlpS) 

(operator  <ol>  taana  slaolate-trip  ^driver  <41>  ^traek  •<tl>  *trlp  <t2>) 
(traok  <tl>  *vo1irae  400  ^aai^-liait  SOOO) 

— > 

(state  <d2>  ‘^driver  <dl>  -)> 

(sp  pl201 

(goal  <gl>  Estate  <d2>  ^operator  <el>) 

(state  <d2>  MosHg-att*  trao  ^oarreBt-enhadnl  e  <11>  *trip  <t3>) 

(list  <11>  *oar  <^) 

(opazator  <a2>  *trlp  <t2>) 

(trip  <t2>  «Mna  trlp3) 

(operator  <al>  ^nrae  alaalate-trip  nrip  <t3>  ^driver  <dl>  ^traok  <tl» 
(driver  <dl>  *driv»-tim  12.8) 

(track  <tl>  ^vnlirae  400  *aal^-llBit  5000) 

— > 

(state  <d2>  «trlp  <t3>  -)) 

(sp  pl202 

(goal  <gl>  Estate  <d2>  *  operator  <a2>> 

(state  <d2>  *d^Bg-att*  traa  ^oorreat-siikadiil  e  <11>) 

(list  <11>  «aar  <al» 

(operator  <al>  *trip  <t3>) 


(state  <s2>  *oarreBt-reeoaraes  <11>  -)) 


(sp  pl31€ 

(goal  <gl>  ^state  <s2>  ^operator  <ol>) 

(state  <s2>  *d^Hg-att*  trao  ^oorreML-rasooroos  <ll>) 

(list  <11>  *oar  «tl» 

(rasoaceas  <rl>  -^sageeBt  sa^eat2  ^aorreet-velraa  €40  ^carraat-tiao  1 
*aoraeeit  aeight  10000) 

(epereter  <ol>  ^neaa  eieBlate-oepMvt  ^zasooreas  <11>  ^sagaaat  <sl>) 
(sapscBt  <sl>  sagsaakl  *tzip  trip!) 

— > 

(state  <a2>  ^earreBt-resoarcieB  <12>  4,  <12>  4) 

(list  <U>  Nmut  <r2>  4  *odr  <11>  4  *typa*  list  4) 

(sasearoas  <r2>  *sepeBBt  eipieBt?  4  ■i^it2  4  *trip  tzlp2  4  tripa  4 
*aarxoiU.  aotgtit  10000  4  10000  4 

^oarxeet-volras  €40  4  €40  4  ^eazT«Bt-tlea  11  4  II  4)} 


(sp  pl3€0 

(goal  <gl>  *otato  <a2>  ^oparator  <ol>) 

(stato  <a2>  ^doag-att*  traa  NmrreBt-raocaroas  <11>) 

(list  <11>  *aar  <rl>) 

(reooBTOss  <rl>  -*so^iBt  sa^sstO  *carrept-volraa  €40  ^easraat-tleo  11 
*nnnMii  oalgtit  XOOOO) 

(oparater  <ei>  ^'aaae  slaolato-sapeeBt  ^rasoforoas  <11>  ^ea^ast  <sl>) 
(oa^aoEt  <sl>  *Bns  ■e^ist3) 

— > 

(state  <a2>  ^oarreet-resoaroes  <11>  -)) 


{wp  pl3€l 

(goal  <gl>  Estate  <a2>  Separator  <ol>) 

(state  <s2>  *draBg-stt*  trao  ^rwirreut-rasoaroas  <11» 

(list  <ll>  *aar  <rl>) 

(lesouiMB  <rl>  -^ss^nait  se^eatO  ^earsoBt-valrae  €40  ^easroat-tlao  ll 
*nnnekt  seigiit  lOOOO) 

(operator  <ol>  *mo  oianlate-oogeoBt  ^^raooareos  <ll>  ^esjasnt.  <sl>) 
(OO^SBt  <Sl>  *BMO  OO^SBtJ  '‘trip  tXlp2) 

— > 

(stete  <s2>  *aBrTeBit-raooaraos  02>  4,  <12>  4) 

(list  02>  ^aar  <x2>  4  *adr  <11>  4  *type*  liat  4) 

(raaoaraao  <r2>  *aapaiBt  sa^MOkS  4  sa^ratS  4  *trip  trlp2  4  trlp2  4 
^nnrfikt  saipbt  10000  4  lOOOO  4 

*nnrtattt-vn1i»a  €40  4  €40  4  ^qarreBt-tieo  11  4  11  4)) 


{9P  pl413 

(goal  <^>  *atato  <s4>  Separator  <al>) 

(state  <s4>  *daag-att*  traa  *aiirt euL-reseaToee  <11>) 

(list  <11>  *qar  <rl>) 

(reeowoas  <rl>  -^sagMsk  aa^aski  "umecit-volBse  €40  *earraat-tieo  11 
*iwrin  eeii^it  10000) 

(aparatsr  <ol>  ^aeas  sinete  ssgaaat  ^raaoaraao  <11>  ^sa^set  <a3>) 
(sa^akt  <s3>  *laad-akipMBt  oaxpat  -^laad-ehipait,  VlL  'Brao  sapMBt4) 
(goal  <gl>  *objaet  VSL  *stata  <s2>) 

(steta  <o2>  *ahipMak  <ol>) 
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(chipMBt  <•!> 
— > 


SOO.O  100.0  *loa4>tlM  0.2) 


(«tat«  <s4>  *qug«<at~g 


<11>  -)) 


tri^a) 

(fou.  <0l>  mXL  <mZ>} 

<o2>  <•!>) 


(«p  ^14 

(goal  <9^  *gtat*  <o4> 
<ctat«  <«4>  ^iiMUi  itl  ~ 
<lirt  <11>  *au  <ttl» 
(ZMOOZOM  <rl> 


(<9«xateK  <ol> 


<11>) 


*txip  txlvt) 

(goal  <gl>  mXL  *0tat«  <«2>) 

(atata  <a2>  ^ahlfMBt  <al>) 

(ahlCMBt  <al>  ^Msa  oaayt  ^valgfat  SOO.O  *vo1vm  lOQ.O  ^load'^tijM  0.2) 


<atat>a  <a4>  ^oa 
(Hat  <12>  *aas 
(raaowraaa  <a2> 


<L2>  4,  <12>  4) 

<11>  4  liat  4) 

4  aa^BMbO  4  *txip  tcl|^  4  tclp2  4 
fiOO.O  4  OBOO.O  4 
SOO.O  4  S40.0  4 
10. t  4  10.0  4)) 


<ap  pl444 

(goal  <g2>  ^atata  <a4>  *«pacatac  <al» 

(atata  <a4>  *OHqf-at:t*  troa  *OQgTit«gaaattgoaa  <11>) 

(liat  <ll>  *aar  <rl>) 

(raaaaroaa  <rl>  -^aaffMort  aa^aotS  ^qaagaact-aalia  S40.0 
^OBExaBt-tlaa  10.0  *qaggaftt  aalgot  0500.0) 

(opaxatar  <al>  ^•aamm  alMlati  aaipaiil  ^caaaoxoaa  <11>  ^aa^aat  <a3>) 
(aa^ant  <a3>  ‘lailiml  alili—il  aaxpat  -*«laad-ahifaaact  ffXL 

aa^ntS) 

(goal  <gl>  ^objaot  MXL  ^atata  <a2>) 

(atata  <a2>  *ahi^aBt  <al» 

(ahiiaaot  <al>  oaapat  *aai^t  SOO.O  ^woltmm  100.0 


(ahipaaaet  <al>  ^aaaa  aaagpgtTit  *«aight  0000.0  ^nifa  400.0 
*lood-tiMm  0.2) 

> 

(atata  <a4>  ^nimifir  rnwaii  4«  ^2>  4) 

(liat  <12>  ^OBX  <r2>  4  *o«k  ^1>  4  ^typa*  liat  4} 

^OBSast-aai^  4000.0  4  4000.0  4 
*qaegat  aolfa  240.0  4  240.0  4 
^ODXnBt-tiM  10.35  4  10.35  4)) 


(ap  plS21 

(goal  <gl>  *atata  <d2>  *eparotnT  <el>) 

(atata  <d2>  tnm  ^aorgaBt-aabadBla  <11» 

(liat  <11>  *«ar  <al>) 

(ifaratia  <dl>  ndp  <t3>) 

(tsip  <t2>  tcipl) 

(apaaatae  <al>  *aaaa  aiaBlata>tx^  ^Oriaaa  <41>  ^txnek  <tl>  '^trlp  <t2>) 
(Oaiaaa  <41>  ^Osiaa-tiaa  11) 

(taacft  <tl>  ^aalMM  040  *«ai^-lialt  10000) 

— > 

(atata  <d2>  ^^ooxxoat-aAodola  <11>  -)) 

(ap  pl522 

(goal  <gl>  *atata  <d2>  ^opogator  <ol>) 

(atata  <02>  txma  *tz«ok  <t3>  *oBg«ottt-o^adala  <ll>) 

(txBot  <t3>  ^1T4  040  *«oi#t-llait  10000) 

(Hat  <11>  *aar  <al» 

(opocotar  <ol>  *txlp  <t2» 

(trip  <t2>  *MMO  txipl) 

(opasator  <al>  *&aao  sianlata-trip  'txook  <t3>  ^drlvar  <41>  'trip  <tl>} 
(Oriror  <41>  ^^drivo-tlao  11) 

(atata  <d2>  ^tnok  <t3>  >)) 


(atata  <a4>  ^anra— t-riioarnoi  <11>  •)) 

(ap  pl4CI 

(goal  <g2>  ^atata  <a4>  ^opacatac  ^1>) 

(atata  <a4>  *ilin  ■(  (■*  tcaa  *auri!aBt«-gaafmgcioa  ^1>) 

(liat  <11>  ^aar  ^1» 

(raaaaroaa  <<rl>  '•^aagoaat  aagaantS  ^lairrant’  anliai  540.0 
^<nrraBt-tiaa  10.0  *aurtaBt«aaigfct  9500.0) 

(oparatar  <ol>  *B4aa  aiaidata^aa^MBt  ^raaoaroaa  <11>  ^aa^oot  <a3>) 
(aa^aot  <a3>  *Tai1  oaO-ahifoat  ooTpot,  -*m1  iiail-ahipBMBt  Mn 
*aaBa  aa^MOtS  *trlp  trip2) 

(goal  <gl>  *objaot  VXL  *atata  <a2>) 

(atata  <a2>  ^ah^Mot  <al>) 

(ahipoaat  <al>  ^aamm  naipat  ^ai^t  500.0  ^^laaa  100.0 
*«laad->tiao  0.25) 

— > 

(atata  <a4>  ^oorTant-riaparon  <12>  4,  <22>  4) 

(liat  <I2>  ^oax  <r3>  4  *aMr  <11>  4  ^tjpa*  liat  4) 

(raaooroaa  <r2>  ^oagoMt  oa^MtS  4  oa^oBtS  4  ^±xip  txlp2  4  trip2  4 
ail^(  10000.0  4  10000.0  4 
^ooxxoBt-^also  040.0  4  040.0  4 
‘"‘aarraat-tiaa  10.5$  4  10.55  4)) 


(ap  pl523 

(goal  <gl>  *atata  <d2>  ^opacator  <ol>) 

(atata  <02>  *OaMq^att*  txaa  ‘^Oriaax  <dl>  ^augxant-acfaaOolo  <11>} 
(Oxiaax  <01>  ^Oxiaa  tiaa  11) 

(liat  <11>  ^aar  <tf  >) 

(apaaatar  <ai>  *txip  <t3» 

(trip  <t3>  *mmm  txipl) 

(apaxatax  <ol>  ^aaaa  alaolata  trip  ^Oxivar  <41>  ^troot  <tl>  ^txlp  <t2>) 
(txaofc  <tl>  ^Iw  040  *«aigfat-liJ4it  10000) 

— > 

(atata  <42>  *^iyag  <41>  •)) 

(ap  pl534 

(goal  <gl>  *atata  <42>  * opaxatar  <el>) 

(atata  <02>  *OaBqr~att*  troa  ^ouraaat-actoaOala  <11>  ^^ip  <t3>} 

(liat  <11>  *aax  <al>) 

(apaxatax  <4l>  *txlp  <t2>) 

(trip  <t2>  *BiM  txipl) 

(apaxatax  <al>  ^bmo  alanlata-trlp  ‘^tzip  <t3>  ^drlTor  <dl>  ‘^track  <tl» 
(dxlxot  <01>  *0riaa-tiM  11) 

(txaA  <tl>  ^PalVM  040  *«aigkit-liBit  10000) 

— > 

(atata  <d2>  *tx^  <t3>  •)} 


(ap  p2517 

(goal  <g2>  *atata  <a4>  ^apaxatax  <ol>) 

(atata  <a4>  *aaM!f*4tt«  txaa  *OBxraBt-raaoaxooa  ^1>) 

(liat  <11>  *oar  <xl» 

^OBXxaat^tiaa  10.55  ^aaxxaat-val^  10000.0) 
(apaxatax  <al>  *aamm  alHota  oapaaat  *raaaaraaa  <11>  ^aa^Mot  <a3>) 
(aa^^aat  <a3>  ^laaO-ahi^aat  aaaapxlat  -*laa4>aldpBaat  VXl* 

(gaal  <gl>  *ab)aat  MXL  *atata  <a2>) 

(atata  <a2>  ^rtlpint  <•!>) 

(ahipMot  <al>  *aaaa  Baxaprint  ^aaigfat  0000.0  *xa)it  400.0 
*laa4-tiaa  0.2) 


(atata  <a4>  *oBxxaBt»xoaoBgaaa  <11>  -)) 

(ap  plSlO 

(gaal  <g2>  ^atata  <a4>  *apax4taT  <al>) 

(atata  <a4>  *0iwnr  >114  txaa  *nan  w)  «xaaaqKoaa  <11» 

(liat  <ll>  «oar  <rl>) 

^oarraat-tiBB  10.55  ^aaxxaat-aad^t  10000.0) 

(apaxatag  <al>  *Baaw  alHata  MQBaar  ■aaaroaa  <ll>  *aagaaBt  <a3>) 
(aa^aat  <a3>  ^laaO^rtljaiiit  Baaapxiat  -*laa4«ati(pB4at  MXL  r-g — "" 


(ap  pl525 

(goal  <gl>  *atata  <42>  *  apaxatax  <ol>) 

(atata  <02>  att^  txaa  **om,Aaiit»af0ia<tn1  a  <11» 

(liat  <11>  *aax  <al» 

(apaxatax  <al>  *txip  <t3>) 

(trip  <t3>  *BaBa  txipl) 

(apaxatax  <al>  aiaadata-txip  *0xlaar  <01>  ‘‘‘txaak  <tl>  ^txlp  <t2>} 

(Oriaax  <41>  *driaa-tiM  11) 

(txaafc  <tl>  *aolsa  040  *«ai^t*llBit  10000) 

— > 

(atata  <42>  *aBxxat«a<fcaiBaa  <12>  4,  <12>  4) 

(liat  <12>  *tfpa*  liat  4  *adx  <11>  4  *eax  <al>  4)) 

(ap  pl534 

(gaal  <g3>  *pxahIiB-apaaa  ^1>  *atata  <a3>  *abjaet  <g2>  ^oparatar  <ol>) 

(pgafclaa  apana  ^Baaa  aalaatioa) 

(goal  <ft>  *px«Mm  apana  ^2>) 


-*0uui  oapg  aoxTaBt’-a^adola  Ov^r*att*  trip  txaelc 

Oriaax 

»*taa  laaal^attxifcataa  aarxiBl-aeiiadaJ  a  OoHj-att* 
trip  tzaak  Oxiaax 

-*«ll-attxibataa-at-laaBl  tvo  -^aaa-laval^attriPotaa 
*BaaM  taak  -''aama  aalaatiaa) 
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<Mi>  <•!>) 

(•valaatlea  <«l>  *afcj>cit  <o2>) 

(opantM  <aa>  -*4flMt-«ofgr  txi|»  bm*  tnok  driver  «iaBlat*-«xlp 

*^xi9  <t»  ^txBOfc  <tl>  *driVBr  <dl>) 

(tsip  <t3>  *BMM  tcApl) 

<tz«ak  <tl>  400  *iw1oht«Iialt  SOOO) 

<4BlVBr  <dl>  U.S) 

(pp«rat«r  <oX>  tyy  divalMtiMi  cp«r»tar 


^OidlTdO  <44>> 

(statA  <43>  tr«*  ^tfri'var  <42>  *tc«ek  <tr4>  *t«ip  <tS> 

(drlvar  <42>  Iwo—  ^ilrlTt  'TI—  11) 

(txvek  <t4>  ^tjfpa  —di^  ^bsm  tz«v«l«r  440  lOOOO) 

(tXlp  <t5>  txlpO  <c2>) 

(Hat  <ll>  ^oar  <al>)  ***^ 

(oparatac  <ol>  *tslp  <t2>) 

(trip  <t2>  *BaM  txlpS) 

(goal  <gl>  ^otojoot  SX&  ^atata  <al>) 

(atata  <al>  Mlfunaa  <U>  *o4ty  <e2>) 

(llnanaa  <12>  *tront  t^pa  wmAijm  ^teldar  team) 

(oi^  <o2>  *aaaa  gacp  troot  travolar  *4rioag  kraao) 

> 

(avalnatiaa  <al>  ^aylMilia  lalua  aoooaaa  4)) 


(«p  pl$35 

(goal  <g2>  *4aairo4  <44>  *pti<ihli  apaoa  ^pl>  *atata  <42> 

^oporatac  <ol>  4) 

(pTfthl^  apaaa  taak  *^«aM  aalaotlaa 

-*toB  laoal-attri^ctaa  drioar  troek  trip  dv^'^tt* 
aarroBb-aabadala 
fwipy  drioar  troek  trip  ilia^  ■(  f 

aarroBt-afOiaifnl  i  •^«Ba-laaal-attrlkotaa 
'*all<-attrlPBtaa-at-laaol  tao  "ilmr  iwnig  aiijflTilug 
-^dafaalt^apatatar  oopy  no  -*>dofaBlt-atata  oopy  ao) 
(atata  <d2>  »tf  tma  ^drloar  dd3>  ^trook  <t4>  ^tcip  <tS> 

*aBB«attt«antiaifla  <L1>) 

(driaar  •<d3>  krat  *dtiao-tl»B  11) 

(troQk  <t4>  *tjfpa  aadlm  ^aagaa  traaolar  ^^olsna  440  ^^Migkt-lljalt  lOOOO) 
(trip  <t$>  ^BiiM  tripO  *<lxat-aapaant  <a2>) 

(aapaaot  <a2>  *aa«cao  gasy) 

(Hat  <11>  «aar  •<al» 

(oparatar  <ca>  *trlp  <t2» 

(trip  <t2>  trip)) 

(operator  <ol>  •MoBt-aepy  tr^  ana  trook  drlaar  *aaaa  alaalata-tr^ 
*trlp  <t3>  nrook  <tl>  *drlaar  <dl» 

(trip  <t3>  trlpl) 

(trook  dtl>  400  *aol^-llBlt  SOOO) 

(drlaar  <dl>  «driao-tln  U.S) 

(goal  <<gl>  *ak)aat  OXL  «atata  <al» 

(atata  <al>  •llnanaa  <U>  •olty  <a2» 

(llnonaa  <12>  •troak-typo  ■adloo  •keldar  krooa) 

(city  <a2>  •ana  gary  •trook  traoolar  •drloor  btooa) 

— > 

(goal  <g2>  •oparatar  <ol>  ») 


(ap  plSJd 

(goal  <g3>  •ob^aot  <g2>  •prohln  apaoa  ^I>  •daalrad  •<d4>  •vtata  <42> 
•oparatar  <al>  4) 

(goal  <g2>  •atata  <a»  •aparatar  <o2>) 

(proMn  apaoa  <pl>  -•dafaolt-atata  oupy  ao  -•daCaalt^oparator-aopy  oo 
-•lint  oopy  aaythlag 

»*diit  oapy  omAnt-anhoitnl  ■  dnoy-att*  trip  trook 
drioor 

-•t«o>loool-attrlkataa  oaraoBt-ardiadal  ■  dmyatt* 
trip  trook  drtoor 

-•all-attrl  hotaa-at-laoal  t«a  ''•oao^larol-attrikotaa 

•aaaa  taak  ••ana  aalaotin) 

(atata  <d2>  •k^i  itf  *  troo  •dri-wor  <d3>  •trook  <t4>  •trip  <ts> 

(drloor  <d9>  •ana  bran  •drloo-tloa  11) 

(trook  <t4>  •typo  aadln  •ana  traoolor  •oolna  440  •volght-llailt  lOOOO) 
(trip  <tS>  •ana  tr^  •Cirat>aa^nt  <a2>) 

(aoBMBk  <a2>  •aaoraa  gary) 

(atata  <a0>  •aoaloattaa  <al>) 

(Hat  <11>  •oar  <al>) 

(oparatar  <ol>  •trip  <t2>) 

(trip  <tk>  •am  trlpt) 

(oparatar  <oS>  •am  ooalaata'  objoot  •daalrad  <d4>  •arBlaatlaa  <al>) 
(oparatar  <ol>  -•iaat  aapy  drloor  trook  am  trip  •am  alanlata^trip 
•trip  <tl>  •trook  <tl>  •drloor  <dl>) 

(trip  <U>  •am  trlpl) 

(trook  <tl>  •rnlm  400  •oal0it«lUiit  SOOO) 


(deloor  <dl>  •drloo-tin  U.S) 

(goal  <gl>  •akjaok  SZX»  •atata  <al>) 

(atata  <al>  •Hoann  ^Lt>  •ol^  <a2>) 

(Hann  <U>  •trord  typo  aadtn  •holdar  kraaa) 

(olty  •ana  gary  •trook  traoalar  •drloar  krooa) 

— > 

(aoaloatln  <al>  •ayabolio  oalaa  parti  al^aopoaor  4) ) 

(9  plSST 

(goal  <g»  •atata  <aS>  •objaot  <gl>  •oparatar  <o2>) 

(goal  <gl>  •prnMn  apana  ^1>) 

(proWn  opofio  ^1>  »*all-attrikotai  at-laoal  too  ^•ona’laool^attxlkctoo 
"•too  laool^attrikotaa  oarmt^aakadala  trip  troek 
drioor  dimy-att* 

"•dnt  oapy  OBXsaBt'acbadala  trip  trook  dxlror 
dmy-att*  -•dOBt-oopy-a^thlxtg 
"•dataolt-atata  oopy  bo  "•dafaolt-oporatoz-eopy  no 
•ana  taak  ••am  aalaetien) 

(atata  <aS>  •ooalaatln  <al» 

(oparatar  <o2>  •ana  aoalaata^cbjoat  •typa  ovalaatiea  •attrlkota  ^aratox 
•dafaolt^atata  oapy  yaa  •dafaalt  oporator-copy  yoo 
•ooalaatin  <al>  •aqparprebln-^aoa  <pl>  •aapaxstato  <«i; 
•ab^oot  <ol>  •daaixod  <d4» 

(atata  <al>  •dnay'*^*  troa  •trip  <t4>  <t4>  •trook  <ts>  ■<t2> 

•Moor  <dS>  <44>  •faifraut-anhadnlo  <11>> 

(trip  <td>  •am  trlpd  •Hrat-ii^nt  <a4>) 

(aa^aat  <a4>  •aaoxoa  gary) 

(trook  <tS>  *typa  aodln  •ana  traoolor  •oolno  440  •vai^t-llait  lOOOO) 
(drloar  <dS>  •ana  kran  •drira-'tiaa  11) 

(drloor  <d4>  •drloo  tiaa  U.S  •ana  gray) 

(trook  <tk>  •oalna  400  •ool^t-Uait  SOOO  •^(pa  noil  •am  plpax) 

(trip  dt4>  •am  trlpl  •dirat-aa^oat  <a2>) 

(aa^nt  <m3>  •aooroa  gary) 

(oparatar  <el>  -•doafc  aopy  trip  ana  trook  drioor  •aaaa  alaslata-trip 
•trip  <tS>  •trook  <tl>  •drloar  <dl>) 

(trip  <t3>  •ana  trlpl) 

(traok  <tl>  •oalm  UOO  •oaigbt-llait  32000) 

(drloor  <dl>  •drloo-tlaa  11) 

(Hot  <11>  •oar  <d3» 

(aparotor  <d3>  •trip  <d2» 

(trip  <d2>  •am  dmy) 

(goal  <g2>  •ab)oot  RX.  •atato  <a3» 

{atoto  <iA>  •Homo  <13>  <U>  •olty  <al>) 

(Hcmboo  <U>  •traak’typa  aadln  •kaldor  hroaa) 

(olt^  <ol>  •ana  gary  •trook  traoolor  pi^or  •drloar  brooa  gray) 

(Honaa  <U>  •troek-typa  mil  •holdar  gray) 

— > 

(ooaloatin  <al>  •ayobaHo  oaloa  partial  ^aoooaaa  4)) 

(ap  plSSt 

(goal  <g3>  *daalTad  <d4>  •prnbl  n-apaoa  ^1>  •atata  <al> 

•oparatar  <al>  4) 

(probln  apaoa  ^1>  •aaaa  taak  "•ana  aalaotin 

" •tao^lorol-attrlhotoa  dnoy^att*  drloar  track  trip 
imout-a^adnla 

"•daot  oopy  dmy-att*  drloar  track  trip 

onn  nt  "aftiodnl  a  -•deot-oopy^axiytklag 
-•an  loool-attributaa  "•all-attrlbotaa^at-laTal  too 
-•dafaolt  oparatar  oapy  ao  -•dafaolt-atata-copy  ao) 
(atata  <aU  •dn^^att*  troa  •trip  <tf>  <t4>  •trook  <t5>  <t2> 

•Moor  «dS>  <d4>  *ourxnt"aohailn1  a  <11>) 

(trip  <t4>  •om  trip!  •Hrat-ao^nt  <a4>) 

(ao^nfe  <a4>  •aaoroa  gary) 

(trwd  dt5>  •typa  ndin  •ana  traoolar  *OBlna  440  •oaigikt-lljd.t  lOOOO) 
(dxion  <dS>  •ana  loan  •drloo-tlaa  11) 

(drloor  <d4>  •drloo  tloo  U.S  •ana  gnqr) 

(troA  dtO  •oolno  400  •ooi^t-lloit  SOOO  •typa  mil  •aaaa  plpar) 

(trip  <t4>  •ana  trlpl  •flrat-aapaoBt  <a2>) 

(aa^nt  <a2>  •aooroa  gary) 

(Hot  01>  •oar  <d3>) 

(lip  Of  at  BT  <d3>  •trip  <dk>) 

(trip  <d2>  •am  doav) 

(oporator  <ol>  -•deat  oapy  trip  ana  trook  drioor  •ana  aiaalata-trip 
•trip  <t3>  •trook  <tl>  •Moor  <dl>) 

(trip  <t3>  •ana  trip!) 

(troek  M>  •oalm  UOO  •oaigbt-Hait  32000) 

(Moor  <dl>  •Moo  tin  ll) 

(gaol  <gl>  •abjaot  mtL  •atata  <a3>) 

(atota  <a3>  •Honn  <U>  •olty  <al>) 

(Homo  <13>  •troA-'typo  ndin  •baldar  teon) 

(oi^  <ol>  •ana  guy  •troek  traoolor  pipor  •drioor  bran  gray) 

(Honn  <U>  *troak"^fpa  naH  •baldar  gray) 

— > 

(goal  <g2>  •oporator  <el>  ») 
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(«p  pl54t 

<9l>  WXL  <s4>  *prafc1i  mpmm  ^fl>  <ol>) 

(itAta  <«4>  *ii—ar  iM*  txm  Mimn—  <U>  <12>  <I1>  <a2>  <al> 

*4riv«K  <4»  <«1>  <4S>  nzoA  <t4>  <t3>  <t5> 

*tclp  <U>  <t»  <fel>) 

(prnlil^  ifw  ta^ipaM) 

(UoaMa  Hrut  tjpa  amIX  ^fcuTitir  pray) 

(ol^  <a»  *MBa  pasy  *tnafe  yipar  tcataalas  *drlTag  pray  team) 

(Uoanaa  <ll>  *»TaBfc  typa  Mp  *PaHar  ^im) 

(al^  <el>  *MBa  IMf  aMMakaU.  Mriaac  praan) 

(lloanaa  •ax>  HnwA  typa  aakim  *kal4ar  team) 

(drlaar  <d2>  ^nma  pray  ^teiaa  tiaa  12. S) 

(traok  <t4>  *typa  «mU.  ^ama  plpar  *aolma  4P0  *aalpht-lteit  S004) 

(tr^  <t4>  *Bma  tdpl  ^Cirat-aapMBt  <a3>) 

<a3>  ^aoarea  pasy) 

(drlaar  <dl>  '^itrtTi  tiaa  II  ^aaaa  praaa) 

(tnok  <t3>  *aa1tea  12M  *aai^-lialt  32000  *typa  big  «te«a  aaaaaabaU.) 
(trip  <t2>  ^Baaa  tdps  *Cirat>aate*Bt  <a2>) 
laamiatt  <a2>  ^aaoroa  iter) 

(tfziaar  <d3>  ^drlaa-tlaa  U  *Bma  teaan) 

(traok  <tS>  *a»n1ma  POO  *aaA(^*llBit  10000  *^fpa  aadim  ^aiaa  traaalar) 
(trip  <tl>  «Bma  trlp2  ^drat-aa^mt  <al>) 

<al>  *aaaraa  pacy) 

(maratte  <ol>  Pa  taaP  *oaoteol>ataff*  <o3» 

(aaaAraX>ataf!f*  <a3>  *aPik-frm  aaiipaal  aaaMaP*  tna) 

— > 

(ooBtxal-ataff*  <a3>  "artU  frm  an)>pna1  aiiiinaiP  txaa  - 
*aPPa*  <al>  *  <al>  «) 

(aag*  <ol>  aiiiailiila  <I7>  4«  <I7>  ♦  <17>  *  <17>  «) 

(liat  <17>  ^typa*  liat  4-  ^adr  <1P>  ♦  «aar  <a4>  4) 

(ooatral-ataff*  <oP>  . *  j'l  ■)  tnaMrf^  traa  4 

^raaialPar  OiaahlaP*  traa  4) 

(oparatar  <o3>  *aaaa  aiaalata-trlp  4  *arlaat  <d2>  4  ^^traok  <t4>  4 
*trip  <tS>  4  *aaotral~at8fg*  <aS>  m,  <oS>  4) 

(liat  <1S>  *^ppa*  liat  4  *adr  <14>  4  ^mr  <a2>  4) 

(ooatral-ataPf*  <o0>  'aPII  fum  aiilipul  Mulilail"  traa  4 
*Ta«wfia1<lar  PlaihlaP*  traa  4) 

(oparatar  <P5>  ^aaaa  aiaiilita  trip  4  ^trlp  <d4>  4) 

(add*  <al>  *alaaa  atata  4  ^id  <a4>  4  *aap  <b1>  c,  aal>  4) 

(trip  <d4>  ^tena  dHy  4) 

(liat  <U>  ^typa*  liat  4  NiPr  aU  4  Nmt  <d$>  4) 

(oparatar  <a2>  *  naati  r ■l-aia£2*  <a4>  4  <o0>  •  *trip  <t2>  4  ^traok  <t3>  4 
Ntariaar  <41>  4  *aaai  atealata-trip  4) 

(oootrol-ataPf*  <o5>  ^ranwialPar  PlarblaP*  tx«a  4 

*aPit*fim  wPipUBl  ■lalilaP*  traa  4) 

(liat  <LO  «mr  <a3>  4  *oPr  <1S>  4  nypa*  liat  4) 

(^orator  <o4>  *oaatral>at«yf*  <oP>  4  <eP>  •  *trip  <tl>  ♦  ^traek  <t5>  4 
^driaar  <d3>  4  *>mmm  almlato-trip  4)) 

(ap  plSOO 

(goal  <gl>  ^objaot  m  ^atata  <a4>  ^prabloM-apaoa  *  op  orator  <ol» 

(atata  <a0>  "ikawg  olf  traa  ^lioooao  <1S>  <12>  *oity  <a2>  <ol> 
^telaar  <d3>  <d2>  <dl>  ^traok  <t5>  <t3>  <tl> 

*trip  <tO  <t4>  dtPb) 

(pfoMm  ipaoa  ^1>  ^mbo  top  apaoa) 

(liomaa  <13>  ^trate-^TP*  Madim  ^Iwldor  brom) 

(oity  <a2>  *Bma  paxy  *txaafc  tzamlar  plpar  *drirar  broon  pray) 

(lioooaa  <12>  *trate  typa  mall  ^boldar  pray) 

(Priaar  <P3>  *ama  teooa  *Prl4o  tlao  li) 

(traok  <tS>  *typa  aaPim  *a«Ba  traaalar  ^nlma  POO  ^vai^t'Uoit  10000) 
(trip  <t4>  *amo  tripP  ^drat-aamaat  <a3» 

(■■te—t  *aoarao  te«r) 

(lioooaa  <11>  ^trate  typa  hip  *telPar  praao) 

(oity  <al>  *Bma  Injy  *tiaflk  oaaMBhall  *driaar  prom) 

(driaor  <d2>  *aaoa  pray  *ir<ao  tloa  12. f) 

(traok  <t3>  *typa  mall  *aom  pipar  *anTma  000  *«aipbt-llBit  SOOO) 

(trip  <t0>  *ama  trlpl  *drat-aapMat  <a2» 

(aapMOt  <a2>  ^aaaroa  pary) 

(Orlmr  <41>  *mm  pram  *drlaa  tim  11) 

(trmk  <tl>  *typa  bip  ^amo  nawmball  ^aalma  1200  ^mipbt'Uoit  32000) 
(trip  <t2>  ^ama  trips  ^drat-aa^MOt  <al>) 

(oapamt  <al>  *aoatoa  My) 

(oparatar  <ol>  ^ama  da-taak) 

— > 

(pool  <pl>  *aparatar  <ol>  •)) 
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